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1 . 



ABSTRACT 



The function of the KMC11 diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfiy that there are no malfunctions and the all operations 
of the KMC11 are correct in its environment. 

Parameters must be set up to alert the diagnostics to the 
KMC11 configuration. These parameters are contained in the 
STATUS TABLE and are generated in two ways: 1) Manual 
Input - the operator answers questions. 2) Autosizing - the 
program determines the parameters automatically. 

CZDMG tests the KMC 11 micro-processor Free running tests are 
performed. A line unit (M8201 or M8202) must be installed. 
CZDMG can be used as a heat test diagnostic by manufacturing. 

Currently there are five off line diagnostics that are to be 
run in sequence to '•"nsure that if an error should occur it 
will be detected at an early stage. 

NOTE: Additional diagnostics may be added in the future. 
The five diagnostics are: 

1. DZKCA KMC-11 CPU Micro-Diagnostics 

2. DZKCC Basic W/R and Micro-Processor Tests 

3. DZKCD KMC-11 Low speed jump and memory tests 
A. DZKCE DDCMP mode line unit tests 

5. DZKCF Bitstuff mode line unit tests 



2.1 FQUIPMENT 

Any PDP11 family CPU (except an LSI-11) with minimum 8k memory 

ASR 33 (or equilivalent) 

KMC 11 or 

W8201 or M8202 line unit 



2. 



REQUIREMENTS 
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2.2 STORAGE 

Program will use all 8K of memory except where ABL and 
BOOTSTRAP LOADER reside. Locations 1500 thru 1640; contain 
the "STATUS TABLE" information which is generated at start of 
diagnostics by manual input (questions) or automatically 
(auto-sizing). This area is an overlay area and should not be 
altered by the operator. 

3. LOADING PR0CEEDURE 

5.1 METHOD 

All programs are in absolute format and are loaded using the 
ABSOLUTE LOADER. NOTE: if the diagnostics are on a media such 
as DISK .MAGTAPE. DEC TAPE, or CASSETTE; follow instructions 
for the monitor which has been provided on that specific 
media. 

ABSOLUTE LOADER starting address *500 

MEMORY * SIZE 

4k 17 

8k 37 

12k 57 

16k 77 

20k 117 

24k 137 

28k 157 



3.1.1 Place address of ABS loader into switch register. 

(also place 'HALT' SW up) 

3.1.2 Depress 'LOAD ADDRESS' key on console and release. 

3.1.3 Depress 'START KEY' on console and release (program should now 
be loading into CPU) 



Page 4 



STARTING PROCEEDURE 

a. Set switch register to 000200 

b. Depress 'LOAD ADDRESS* key and release 

c. Set SWR to zero for 'AUTO SIZING* or SWR bit0=1 for manual 
input (questions) or SWR bit7=1 to use existing parameters 
set up by a previous start or a previously run DMC11 
diagnostic. 

d. Depress 'START KEY' and release. The program will type 
Maindec Name and program name (if this was the first start 
up of the program) and also the following: 

MAP OF DMC11 STATUS 



PC CSR STAT1 STAT2 STAT3 



001500 160010 145310 177777 000000 
001510 160020 145320 177777 000000 

The program will type 'R* and proceed to run the diagnostic. 
The above is only an example. This would indicate the status 
table starting at add. 1500 in the program. In this example 
the table contains the information and status of two DMC11'S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
IS DONE. For information of status table see section 8.4 for 
help. 

If the diagnostic was started with SWO0=1 indicating manual 
parameter input then the following shows an example of the 
questions asked and some example answers: 

HOW MANY KMC11 'S TO BE TESTED71 

01 

CSR ADDRESS71 60010 

VECTOR ADDRESS7310 

BR PRIORITY LEVEL? (4,5,6,7)75 

DOES MICRO-PROCESSOR HAVE CRAM? (Y OR N)N 

WHICH LINE UNIT? IF NONE TYPE "N". IF M8201 TYPE "1". IF 

M8202 TYPE '2"?1 

IS THE LOOP BACK CONNECTOR 0N?Y 

SWITCH PAC*1 (DDCMP LINE#)?377 

SWITCH PAC#2 (BM873 BOOT ADD)?377 

Following the questions the status map is printed out as 
described above, the information in the map reflects the 
answers to the questions. If the diagnostic was started with 
SW00=0 and SW07=0 (AUTO-SIZING) then no questions are asked 
and only the status-map is printed out. If AUTO-SIZING is 
used the status information must be verified to be correct 
(match the hardware), if it does not match the hardware the 
diagnostic must be restarted with SW00=1 and the questions 
answered. 
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4.1 



CONTROL SWITCH SETTINGS 



SW 15 Set 
SW H Set 
SW 13 Set 
SW 12 Set 
SW 11 Set 
SW 10 Set 
SW 09 Set 
SW 08 Set 
SW 07 Set 
SW 06 Set 



Set 
Set 



SW 05 
SW 04 
SW 03 Set 
SW 02 Set 
SW 01 Set 
SW 00 Set 



Halt on error 

Loop on current test 

Inhibit error print out 

Inhibit type out/abell on error. 

Inhibit iterations, (quick pass) 

Escape to next test on error 

Loop with current data 

Catch error and loop on it 

Use previous status table. 

Halt in ROMCLK routine before clocking 

micro-processor 

Reserved 

Reserved 

Reselect KWC11's desired active 

Lock on selected test 

Restart program at selected test 

Build new status table from questions. (If SW07=0 

and SW00=0 a new status table is built by 

auto-sizing) 



Switch 06 and 08-15 are dynamic and can be changed as needed 

while the diagnostic is running. Switches 00-03 and switch 07 

are static, and are used only on starting or restarting the 

diagnostic . 
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A. 1.2 SWITCH REGISTER OPTIONS (at start up) 

SW 01 RESTART PROGRAM AT SELECTED TEST. It is strongly 
suggested that at least one pass has been made before 
trying to select a test, the reason being is that the 
program has to clear areas and set up parameters. 
When this switch is used the diagnostic will ask TEST 
NO.? Answer by typing the number of the test desired 
and carrige return to begin execution at the selected 
test. 

SW 02 LOCK ON SELECTED TEST. This switch when used with 
SW01 will cause the program to constantly loop on the 
selected test. Hitting any key on the console will 
let it advance to the next test and loop until a key 
is hit again. If SW02=0 when SW01 is used. The 
program will begin at the selected test and continue 
normal operations. 

SW 03 RESELECT KMC11'S DESIRED ACTIVE. Please note that a 
message is typed out for setting the switch register 
equal to KMC11's active, this means if the system has 
four KMC11s; bits 00.01.02.03 will be set in loc 
'DMACTV from the switch register. Using this 
switch(SWOO) alters that location; therefore if four 
DMC1 1 s are in the system ***D0 NOT*** set switchs 
greater than SW 03 in the up position, this would be 
a fatal error, do not select more active DMC11s than 
there is information on in the status table. 



METHOD: A 
8 
C 
D 



Lead address 200 
Start with SW 00=1 
Program will type message 

Set a switch for each KMC desired active. 
EXAMPLE: If you have A DMC's but only want to 
run the first and the last set SWR bits 0 and 
3=1. PRESS CONTINUE 

Number (IF VALID) will be in data lights 
(excluding 11/05) 

Set with any other switch settings desired. 
PRESS CONTINUE. 
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1.3 DYNAMIC SWITCHES 



ERROR SWITCHES 



1. 
2. 
3. 
4. 
5. 



SW 12 
SW 13 
SW 15 
SW 08 
SW 10 



Delete print out/bell on error. 
Delete error printout. 
Halt on the error. 

Goto beginning of the test (on error). 
Goto next test(on error). 



SCOPE SWITCHES 



1. SW06 Halt in ROMCIK routine before clocking 

micro-processor instruction. This allows the 
operator to scope a micro-processor instruction in 
the static state before it is clocked. Hit 
continue to resume running. 

2. SW09 (if enabled by 'SCOPD on an error; If an •*• is 

printed in front of the test no. (ex. *TEST NO. 
10 ) SW09 is incorporated in that test and 
therefore SW09 is usually the best switch for the 
scope loop (SW14=0, SW10=0. SW09=1 . SW08=0). If 
SW09 is not enabeled; and there is a HARD error 
(constant); SW08 is best. (SW14=1,0. SW10=0. 
SW09=0. SW08=1). for intermittemt errors; SW14=1 
will loop on test reguardless of error or not 
error. (SW14=1, SW10=0. SW09=0. SW08=1 ,0) 

3. SW11 Inhibit interations. 

4. SW14 Loop on current test. 

STARTING ADDRESS 

Starting address is at 000200 there are no other starting 
addresses for the KMC11 diagnostics. (See Section 4.0) 

NOTE: If address 000042 is non-zero the program assumes it 

is under ACT11 or XXDP control and will act 

accordingly after all available Krtdl's are tested the 
program will return to 'XXDP' or 'ACT-H'. 

OPERATING PROCEDURE 

When program is initially started messages as described in 
section 4.0 will be printed, and program will begin running 
the diagnostic 
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5.2 PROGRAM AND/OR OPERATOR ACTION 
The typical approach should be 

1. Halt on error (via SW 15=1) when ewer an error occurs. 

2. Clear SW 15. 

3. ' Set SW 14: '(loop on this test) 

4. Set SW 13: (inhibit error print out) 

The TEST NUMBER and PC will be typed out and possibily an 
error message (this depends on the test) to give the operator 
an idea as to the source of the problem. If it is necessary 
to know more information concerning the error report; LOOK IN 
THE LISTING for that TEST NUMBER which was typed out and then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN BE DETERMINED. 

6. ERRORS 

As described previously there will always be a TEST NUMBER and 
PC typed out at the time of an error (providing SW 13=0 and SW 
12=0). in most cases additional information will be supplied 
in the the error message to give the operator an indication of 
the error. 

6.2 ERROR RECOVERY 

If for some reason the KMC11 should 'HANG THE BUS' (gain 
control of bus so that console manual functions are inhibited) 
«*n init or power down/up is necessary for operator to regain 
control of cpu. If this should happen; look in location 
•TSTN0' (address 1226) for the number of the test that was 
running at the time of the catastrophic error. In this way 
the operator will have an idea as to what the DMC11 was doing 
at the time of the error. 

7. RESTRICTIONS 

7.1 STARTING RESTRICTIONS 

See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also it is important to use this listing along with 
the information printed on the TTY to completly isolate 
problems. 
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7.2 OPERATING RESTRICTIONS 

The first time a KMC11 diagnostic is loaded into core and run 
the STATUS TABLE must be set up. This is done by manual input 
(SW00=1) or by autosizing (SWO0=0 and SW07=0) . Thereafter 
however the status table need not be setup by subsequent 
restarts or even loading the next DMC diagnostic because the 
STATUS TABLE is overlayed. The current parameters in the 
STATUS TABLE are used when SW07=1 on start up. 

7.3 HARDWARE CONFIGURATION RESTRICTIONS 
KMC(M82W)- Jumper W1 must be in. 

LINE UNIT(M8201J- Jumpers W1 . W2. and W4 must be IN. Jumpers 
W3, and W^ must be OUT. SW8 of E26 must be in the ON 
POSITION. 

LINE UNIT (M8202)- Jumper W1 must be in. SW8 of E26 must be 
in the OFF position. 

8. MISCELLANEOUS 

8.1 EXECUTION TIME 

All KMC11 device diagnostics will give an 'END PASS' message 
(providing no errors and swl2=0) within A mins. This is 
assuming SWl 1=1 (DELETE ITERATIONS) is set to give the fastest 
possible execution. The actual execution time depends greatly 
on the PDP11 CPU configuration and the amount of memory in the 
system. 

8.2 PASS COMPLETE 

NOTE: EVERY time the program is started; the tests will run 
as if SW11 (delete iterations) was up (=1). This is to 
•VERIFY NO HARD ERRORS' as soon as possible. Therefore the 
first pass -EACH TIME PROGRAM IS STARTED- will be a 'QUICK 
PASS' until all DMC11's in system are tested. When the 
diagnostic has completed a pass the following is an example of 
the print out to be expected. 

ENC PASS D2DMG CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 

NOTE: The pass count and error counts are cummulitive for 
each KMC11 that is running, and are set to zero only 
when the diagnostic is started. Therefore after an 
overnight run for example, the total passes and errors 
for each DMC 11 since the diagnostic was started are 
reflected in PASSES: and ERRORS:. 
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8.4 



KEY LOCATIONS 
RETURN (12H) 

NEXT (1216) 
TSTNO (1226) 
RUN (1316) 



DMCR00-DMCR1 7 
DMST00-DMST17 
(1500)-(1640) 



DMACTV (1306) 



Contains the address where program will return 
when iteration count is reached or if loop on 
test is asserted. 



Contains the address of the next 
pe formed. 



test to be 



Contains the number of the test now being 
pe formed. 

The bit in 'RUN' always points to the KMC11 

currently being tested. EXAMPLE: (RUN) 

1302/0000000001000000 Means that KMC11 no. 06 
is the KMC11 now running. 



These locations contain the information needed 
to test up to 16 (decimal) KMC11s sequentialy. 
they contain the CSR, VECTOR and STATUS 
concerning the configuration of each KMC11. 

Each bit set in this location indicates that 
the associated KMC11 will be tested in turn. 
EXAMPLE : (DMACTV) 1276/0000000000011111 means 
that KMC11 no. 00,01,02,03,04 will be tested. 
EXAMPLE: (DMACTV) 1276/0000000000010001 Means 
that DMC11 no. 00,04 will be tested. 



DMCSR (1404) 



Contains 
test. 



the CSR of the current KMC11 under 



8.4A 'STATUS TABLE' (1500-1640) 

The table is filled by AUTO SIZING or by the manual parameter 
input (questions) as described previously. Also if desired by 
user; the locations may be altered by hand (toggled in) to 
suit the specific configuration. 

The example status map shown below contains information for 
two DMC1TS. the table can contain up to 16 DMC11'S. 
Following the map is a description of the bits for each map 
entry 

MAP OF KMC11 STATUS 



PC CSR STAT1 STAT2 STAT3 

001500 160010 145310 ^77777 000000 
001510 160020 016320 000000 000000 
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Each map entry contains 4 wo; ds which contain the status 
information for 1 KMC11. The PC shows where in core memory 
the first of the 4 words is. In the example above the first 
KMC'S status is in locations. 1500. 1502. 1504, and 1506. The 
second KMC status is located at 1510. 1512. 1514. and 1516. 
The information contained in each 4 word entry is defined as 
follows: 

CSR: Contains KMC11 CSR address 

STAT1: BITS 00-08 IS KMC11 VECTOR ADDRESS 
BIT 15=1 MICRO-PROCESSOR HAS CRAM 
BIT1 5=0 MICRO-PROCESSOR HAS CROM 
BIT1 4=1 TURNAROUND CONNECTOR IS ON 
BIT 14=0 NO TURNAROUND CONNECTOR 
BIT1 3=0 LINE UNIT IS AN M8201 
BIT1 3=1 LINE UNIT IS AN M8202 
BIT12=1 NO LINE UNIT 
OITS 09-11 IS KMC 11 BR PRIORITY LEVEL 

STAT2: LOU BYTE IS SWITi ' PAOM (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH r>AC*2 (BM873 BOOT ADD) 

STAT3: 

BIT1=0 KMC11-AR (LOW SPEED) 
BIT1=1 KMC11-AL (HIGH SPEED) 
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8.5 METHOD OF AUTO SIZING 

8.5.1 FINDING T HE CONTROL STATUS REGISTER. 

The auto-sizing routine finds a KMC11 as follows: It starts 
at address 160000 and tests all address in increments of 10 up 
to and including address 167760. If the address does not time 
out, the following is done, the first CR0M address is written 
to a 125252 then it is read back. If it contains a -1 or 
125252 or a 626 or 16520 a DMC11 or KMC11 has been found, if 
not, the address is updated by 10 and the search continues. A 
-1 indicates a DMC11 with no CRCfl, a 125252 indicates a KMC11 
with CRAM, a 626 indicates a DMC11-AL and a 16520 indicates a 
DMC11-AR. Further tests are performed at this point to 
determine which line unit, if any, is installed, if a 
loop-back connector is installed and various switch settings 
on the line unit. THIS IS WHY THE STATUS TABLE MUST BE 
VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
THE QUESTIONS MUST BE ANSWERED. All DMC11's in the system 
will be found by the auto-sizer. If it does not find a DMC 11 
the diagnostic must be restarted and the questions answered. 

8.5.2 FINDING THE VECTOR AND BR LEVEL 

The vector area (address 300-776) is filled with the 
instruction I0T and '.+2' (next address). The processor 
status is started at 7 and the DMC is programmed to interrupt. 
The PS is lowered by 1 until the DMC interrupts, a delay is 
made and if no interupt occures at PS level 3 (because of a 
bad DMC11) the program assumes vector address 300 at BR level 
5 and the problem should be fixed in the diagnostic. Once the 
problem is fixed; the program should be re-setup again to get 
correct vector. If an interupt occured; the address to which 
the DMC11 interupted to is picked up and reported as the 
vector. NOTE: if the vector reported is not the vector set 
up by you; there is a problem and AUTO SIZING should not be 
done. 

8.6 SOFTWARE SWITCH REGISTER 

If the diagnostic is run on an 11/04 or other CPU without a 
switch register then a software switch register is used to 
allow user the same switch options as described previously. 
If the hardware switch register does not exist or if one does 
and it contains all ones H 77777) this software switch 
register is used. 

Control : 

To obtain control at any allowable time during execution of 
the diagnostic the operator types a CTRL G on the console 
terminal keyboard. As soon as the CTRL G is recognized, by 
the diagnostic, the following message will be displayed: 
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SUR=XXXXXX NEW? 

Where XXXXXX is the current contents of the software switch 
register in octal. The software control routine will then 
await operator action. At which time the operator is required 
to type one or more of the legal characters: 1) 0-7. 2) 
line feed(<LF», 3) carriage return(<CR», or 4) control-U 
(CTRL U). No check is made for legality. If the input 
character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 

To change the contents of the SSR the ope ator simply types 
the new desired value in octal - leading zeros need not be 
typed. And terminates the input string with a <CR> or <LF> 
depending on the program action desired as described below. 
The input value will be truncated to the last 6 digits typed. 
At least one digit must be typed on any given input string 
prior to the terminator before a change to the SSR will occur. 

When the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR. The <LF> differs from 
the <CR> by restarting the program as if it were restarted at 
address 200. 

If a CTRL U is typeo at any point in the input string prior to 
the terminator the input value will be disregarded and the 
prompt displayed (SWR = XXXXXX NEW?) . 

To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G. then start the diagnostic. 
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1 




01200 






2 




01300 






3 




01400 


********************** .$SC0PE ********************** 


4 




01500 






5 




01600 , 


••SSCOPE IS USED TO HANDLE SCOPE LOOPS 


6 




01700 






7 




01800 


•ARGUMENT: 


8 




01900 






9 




02000 


•1) 


NUM IF NON-BLANK DESIRED NUMBER OF ITERATIONS 


10 




02100 




IF BLANK 2000. ITERATIONS WILL BE MADE 


11 




02200 . 






12 




02300 


2) 


INSTR -- IF NON-BLANK WILL BE THE FIRST INSTRUCTION OF 


13 




02400 




THE SCOPE ROUTINE 


14 




02500 




EXAMPLES OF USE: 


15 




02600 




1) «MOV R1.SAVR1 ;;SAVE R1» 


16 




02700 




2) «MOV R1.SAVR1>.<M0V R2,SAVR2» 


17 




02800 




3) AS A MACRO I.E. «PUSH <R0,R1 ,R2.R3,R4,R5»> 


18 




02900 




19 




03000 


•3) 


NOLOOP - IF BLANK THE FIRST PASS THROUGH THE PROGRAM WILL 


20 




03100 




INHIBIT ITERATIONS. 


21 




03200 . 




IF NON-BLANK ITERATIONS WILL OCCUR ON THE FIRST PASS. 


22 




03300 . 






23 




03400 , 


•4) 


INSTR2 - IF NON-BLANK WILL REPLACE THE LAST INSTRUCTION (RTI) . 


24 




03500 




REFER TO ARGUMENT 2 (INSTR) FOR EXAMPLE OF USE. 


25 




03600 




REMEMBER YOU NEED AN RTI (OR RTS) FOR EXITING THE ROUTINE 


26 




03700 






27 




03800 


: 5) 


TABLE - IF THIS ARGUMENT IS IDENTICAL TO THE WORD "SW08TBL" 


28 




03900 




AND THE SWITCH 8 (SW08) SCOPE OPTION IS TO BE USED 


29 




04000 




A DISPATCH TABLE WILL BE CREATED. IF SW08 IS ON A "1" 


30 




04100 




THE LOWER BYTE OF THE SWITCH REGISTER WILL BE USED TO 


31 




04200 




INDEX INTO THE DISPATCH TABLE AND SELECT THE STARTING 


32 




04300 




ADDRESS OF THE SPECIFIED TEST. THE TABLE IS OF THE FORM: 


33 




04400 






34 




04500 




SSW08TBL: 


35 




04600 




.WORD TST1+2 


36 




04700 




.WORD TST2+2 


37 




04800 






38 




04900 






39 




05000 






40 




05100 




.WORD TSTN+2 


41 




05200 , 






42 




05300 






43 




05400 


•NOTE 


: THIS ROUTINE IS CONDITIONALLY ASSEMBLE BY $SWR 


44 




05500 


:FOR SW14.SW11.SW09.$SW08 


45 




05600 


;SW14 


=1 LOOP ON TEST 


46 




05700 


;SW11 


=1 INHIBIT ITERATIONS 


47 




05800 


•SW09 


=1 LOOP ON ERROR 


48 




05900 


•SW08 


=1 LOOP ON TEST IN SW<7:0> 


49 




06000 






50 




06100 


•A*************************************************** 


51 




06200 
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55 




56 




57 




58 




59 




60 




61 




62 




63 




64 




65 




66 




67 




68 




69 




70 




71 




72 




73 




74 




75 




76 




77 




78 




79 




80 




81 




82 




83 




84 




85 




86 




87 




88 


001200 


89 




90 




91 




92 




93 


00001 1 


94 


000012 


95 


000015 


96 


000200 


97 


1 77776 


98 




99 


1 7777C, 


100 


1 77772 


101 


"\77570 


102 


1 77 570 


103 




104 




105 


000000 


106 


000001 


107 


000002 
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.TITLE AC-E107A-MC 
.•♦COPYRIGHT (C) 1978 
.-♦DIGITAL EQUIPMENT CORP. 
.•♦MAYNARD, MASS. 01754 
;* 

.-♦PROGRAM BY DINESH GORADIA 
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.•♦THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
.•♦PACKAGE (MAINDEC-1 1-DZQAC-C3) . JAN 19. 1977. 



♦AC-E107A-MC CZKCGAO KMC FREE RUNNING TEST 

♦COPYRIGHT 1978. DIGITAL EQUIPMENT CORP.. MAYNARD, MASS. 01754 
* 

STARTING PROCEDURE 

LOAD PROGRAM 

LOAD ADDRESS 000200 

SWR=0 AUTOSIZE KMC 11 

SW07=1 USE CURRENT KMC11 PARAMETERS 

SWO0=1 INPUT NEW KMC11 PARAMETERS 

PRESS START 

PROGRAM WILL TYPE "AC-E107A-MC CZKCGAO KMC FREE RUNNING TEST" 
PROGRAM WILL TYPE STATUS MAP 

PROGRAM WILL TYPE *R" TO INDICATE THAT TESTING HAS STARTED 
AT THE END OF A PASS. PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
AND THEN RESUME TESTING 

SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 
.S8TTL BASIC DEFINITIONS 

.•♦INITIAL ADDRESS OF THE STACK POINTER ♦♦♦ 1200 **♦ 
STACK= 1200 

.EQUIV EMT .ERROR ;;8ASIC DEFINITION OF ERROR CALL 

.EQUIV IOT, SCOPE ; .-BASIC DEFINITION OF SCOPE CALL 



.•♦MISCELLANEOUS 



HT= 
LF = 
CR= 
CRLF= 
PS= 
.EQUIV 



11 
12 
15 
200 
1 77776 
PS^PSW 



DEFINITIONS 

CODE 



STKLMT= 177774 
PIRQ= \77772 
DSWR= 177570 
DDI SP= 177570 



FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE 
PROCESSOR STATUS WORD 



FEED 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



.•♦GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 



to 

X1 
X2 



; GENERAL REGISTER 
; GENERAL REGISTER 
.•GENERAL REGISTER 
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BASIC DEFINITIONS 






108 


000003 


R3= 


XI 


.•GENERAL REGISTER 




109 


000004 


R4= 


X4 


; GENERAL REGISTER 




110 


000005 


R5- 


xs 


.■GENERAL REGISTER 




1 1 i 


WvWJ 


R6= 


X6 


•GENERAL REGISTER 




112 


000007 


R7= 


X7 


.•GENERAL REGISTER 




113 


000006 


SP= 


X6 


; STACK POINTER 




114 


000007 


pc- 


X7 


.•PROGRAM COUNTER 




115 
116 




;*PRI0RITY LEVEL DEFINITIONS 




117 


000000 


PR0= 


0 


.•PRIORITY LEVEL 0 




118 


000040 


PR1 = 


40 


.•PRIORITY LEVEL 1 




119 


000100 


PR2= 


100 


.•PRIORITY LEVEL 2 




120 


000140 


PR3= 


140 


.•PRIORITY LEVEL 3 




121 


000200 


PR4= 


200 


.•PRIORITY LEVEL 4 




122 


000240 


PR5= 


240 ; 


.•PRIORITY LEVEL 5 




123 


000300 


PR6= 


300 


.•PRIORITY LEVEL 6 




124 


000340 


PR7= 


340 


.•PRIORITY LEVEL 7 




125 












126 




;*"SWJTCH REGISTER" SWITCH DEFINITIONS 




127 


100000 


SW15= 


100000 






128 


040000 


SW14= 


40000 






129 


020000 


SW13= 


20000 






130 


010000 


SW12= 


10000 






131 


004000 


SW11 = 


4000 






132 


002000 


SW10= 


2000 






133 


001000 


SW09= 


1000 






134 


000400 


SW08= 


400 






135 


a j«k a * 

000200 


SW07= 


200 






136 


000100 


SW06= 


100 






137 


000040 


SW05= 


40 






138 


000020 


SW04= 


20 






139 


000010 


SW03= 


1C 






140 


000004 


SW02= 


4 






141 


000002 


SW01 = 


2 






142 


000001 


SW00= 


1 






143 




.EOUIV 


SW09.SW9 






144 




.EOUIV 


SW08.SW8 






145 




.EQUIV 


SW07.SW7 






146 




.EOUIV 


SW06.SW6 






147 




.EQUIV 


SU05,SW5 






148 




.EQUIV 


SW04.SW4 






149 




.EQUJV 


SW03,SW3 






150 




.EQUIV 


SW02.SW2 






151 




.EQUIV 


SW01.SW1 






152 




.EQUIV 


swoo.swo 






153 












! 154 




; *DATA BIT DEFINITIONS (BITOO TO BIT15) 




155 


100000 


BIT15= 


100000 






156 


040000 


BIT14= 


40000 






157 


020000 


BIT13= 


20000 






158 


010000 


BIT12= 


10000 






159 


004000 


BIT11= 


4000 






160 


002000 


BIT10= 


2000 






161 


001000 


BIT09= 


1000 






162 


000400 


BIT08= 


400 






163 


000200 


BIT07= 


200 
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BASIC DEFINITIONS 








164 


000100 


BIT06= 100 








165 


000040 


BIT05= 40 








166 


000020 


BIT04= 20 








167 


000010 


BIT03= 10 








168 


000004 


BIT02= 4 








169 


000002 


BIT01= 2 








170 


000001 


BITOO= 1 








171 




.EQUIV BIT09.BIT9 






172 




.EQUIV BIT08.BIT8 






173 




.EQUIV BIT07.BIT7 






174 




.EQUIV BIT06.BIT6 






175 




.EQUIV BIT05.BIT5 






176 




.EQUIV BIT04.BIT4 






177 




.EQUIV BIT03.BIT3 






178 




.EQUIV BIT02.BIT2 






179 




.EQUIV BIT01.BIT1 






180 




.EQUIV BITOO.BITO 






181 












182 




;*8ASIC "CPU" TRAP VECTOR 


ADDRESSES 




183 


000004 


ERRVEC= 4 




.-TIME OUT AND OTHER ERRORS 




184 


000010 


RESVEC= 10 




.•RESERVED AND ILLEGAL INSTRUCTIONS 




185 


000014 


TBITVEC=14 




:'T' BIT 




186 


000014 


TRTVEC= 14 




.-TRACE TRAP 




187 


000014 


BPTVEC= 14 




.•BREAKPOINT TRAP (BPT) 




188 


000020 


I0TVEC= 20 




; INPUT/OUTPUT TRAP (IOT) **SCOPE** 




189 


000024 


PWRVEC= 24 




.•POWER FAIL 




190 


000030 


E«TVEC= 30 




.'EMULATOR TRAP (EMT) **ERROR** 




191 


000034 


TRAPVEC=34 




; ' TRAP' ' TRAP 




1 92 


000060 


TKVEC= 60 




;TTY KEYBOARD VECTOR 




193 


000064 


TPVEC= 64 




; TTY PRINTER VECTOR 




194 


000240 


PIRQVEC=240 




.•PROGRAM INTERRUPT REQUEST VECTOR 




195 












1% 












197 












198 












199 




.•INSTRUCTION DEFINITIONS 






200 




0 








201 












202 


005746 


PUSH1SP=5746 


■DECREMENT PROCESSOR STACK 1 WORD 




203 


005726 


P0P1SP=5726 


•INCREMENT PROCESSOR STACK 1 WORD 




204 


010046 


PUSHR0=10046 


•SAVE RO ON STACK 




205 


012600 


P0PR0=12600 


•RESTORE 


RO FROM STACK 




206 


024646 


PUSH2SP=24646 


•DECREMENT STACK TWICE 




207 


022626 


P0P2SP=22626 


•INCREMENT STACK TWICE 




208 




.EQUIV EMT.HLT 


BASIC DEFINITION OF ERROR CALL 




209 










210 












211 
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212 








213 








21 A 








215 








216 








217 








218 








219 








220 








221 








222 




000000 

www www 




223 


000000 

www 


000000 

w W W w 


000000 


224 








225 








226 








227 




000020 

WW V/ t_ w 




228 


000020 

V W VL v 


004134 




229 


000022 

WWfc t- 


000340 

W W W — / t W 




230 


000024 

W WW W(_ * 


007122 




231 


000026 


000340 

WWWv • w 




232 


000030 

ww^w 


006506 

W WW 




233 


000032 


000340 

WWW ■— ' * V 




234 


000034 


006410 




235 


000036 

WWW — ' 


000340 

WWW — ' • w 




236 








237 








238 








239 








240 




000040 

WWW W t w 




241 




000046 

w w w w~ w 




242 


000046 

www w~ w^ 


004070 




243 




000052 




244 


000052 

WWW W ^ k 


000000 




245 




000040 

wvw^ w 




246 








247 




0001 74 




248 


000174 


000000 




249 


0001 76 

WWW 1 1 w 


000000 

WW WW WW 




250 








251 




000200 

W W VL WW 




252 


000200 

W Wfc WW 


000137 


002402 


253 








254 








255 




001000 




256 


001000 


005200 


041501 


(2) 


001016 


055103 


041513 


(2) 








257 




177570 




258 




177570 





F 2 

T RAPCATCHER FOR UNEXPECTED INTERUPTS 

TRAPCATCAER FOR ILLEGAL INTERRUPTS 
THE STANDARD ' TRAP CATCHER" IS PLACED 
8ETUEEN ADDRESS 0 TO ADDRESS 776. 
IT LOOKS LIKE *T>C+2 HALT". 

.=0 

•WORD 0.0 
.•STANDARD INTERRUPT VECTORS 



PAGE: 001 8Ci 



.=20 

SSC0PE 
PR 7 
SPWRDN 
PR? 

SERR0R 
PR7 
STRAP 
PR 7 

.S8TTL ACT11 HOOKS 



SCOPE LOOP HANDLER. 
StRVICE AT LEVEL 7. 

; POWER FAIL HANDLER 
;SERVICE AT LEVEL 7 
: ERROR HANDLER 
SERVICE AT LEVEL 7 
; GENERAL HANDLER DISPATCH SERVICE 
;SERVICE AT LEVEL 7 



••a************************************************************** 

; HOOKS REQUIRED BY ACT11 

.-SAVE PC 



$SVPC=. 
.=46 
SENDAD 

.=52 

.WORD 0 
.=$SVPC 



.=174 
DISPREG.-O 
SWREG: 0 



;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET LOC.52 TO ZERO 
;; RESTORE PC 



.•SOFTWARE DISPLAY REGISTER 
.■SOFTWARE SWITCH REGISTER 



.=200 



O000 



JMP 



.START 



;G0 TO START OF PROGRAM 



MTI TLE: .ASCII <200><12>/AC-E107A-MC/<200> 

.ASCIZ /CZKCGA0 KMC FREE RUNNING TEST/<200> 



DSWR 
DDISP 



177570 
177570 
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259 
260 
261 
262 
263 
264 

265 001200 

266 001200 

267 001200 000000 

268 001202 000 

269 001203 000 

270 001 204 000000 

271 001206 000000 

272 001210 000000 

273 001212 000000 

274 001214 000 

275 001215 001 

276 001216 000000 

277 001220 000000 

278 001222 000000 

279 001224 000000 

280 001226 000000 

281 001230 000000 

282 001232 000000 

283 001234 000 

284 001235 000 

285 001236 000000 

286 001240 177570 

287 001242 177570 

288 001244 177560 

289 001246 177562 

290 001250 177564 

291 001252 177566 

292 001254 000 

293 001255 002 

294 001256 012 

295 001257 000 

296 001260 000000 
297 

298 001262 000000 

299 001264 000000 

300 001266 000000 

301 001270 000000 
3C2 001272 000000 

303 001274 000000 

304 001276 000000 

305 001300 000000 

306 001302 000000 

307 001304 000000 

308 001306 000000 

309 001310 000000 

310 001312 077 

311 001313 015 

312 001314 000012 
313 

314 



G 2 

COMMON TAGS 

.S8TTL COMMON TAGS 

;;*************************************************************** 

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



PAGE: 001 9Ci 



SCMTAG: 

STSTNM: 

SERFLG: 

SICNT: 

SLPADR 

SLPERR 

SERTTL 

SITEMB 

SERMAX 

SERRPC 

SGDADR 

S8DADR 

SGDDAT 

S8DDAT 



SAUT08: 
SINTAG: 

SWR: 
DISPLAY 
STKS 
$TKB 
STPS 
$TP8 
SNULL: 
SPILLS 
JFILLC 
S7PFLG 
SREGAO 



SREGO 

SREG1 

SREG2 

SREG3 

SREG4 

SREG5 

STMPO 

STMP1 

STMP2 

STMP3 

STMP4 

STIMES 

SQUES: 

SCRLF : 

$LF: 



.=1200 

.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
: .WORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 



0 
0 
0 
0 
0 
0 
0 
0 

1 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

DSWR 
DDISP 



0 
0 



.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

•WORD 0 
0 

.ASCII /?/ 

.ASCII <15> 

.ASCIZ <12> 



;; START OF COMMON TAGS 



CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONiAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD' DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
CONTAINS 'GOOD' DATA 
CONTAINS 'BAD' DATA 
RESERVED — NOT TO BE USED 



: .-AUTOMATIC MODE INDICATOR 
:; INTERRUPT MODE INDICATOR 



ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A *UNE FEED" 
'TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
CONTAINS THE ADDRESS FROM 
WHICH (SREGO) WAS OBTAINED 
CONTAINS (($REGAD)*0) 
(<SREGAD)*2> 
(($REGAD)+4) 
(($REGAD)+6) 
(($REGAD)+10) 
(($REGAD)+12) 



CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
USER DEFINED 
MAX. NUMBER OF 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 



ITERATIONS 



■A*****************************************************-********* 



. SBTTL APT MAILBOX-E TABLE 
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APT MAI L30X-E TABLE 


3 1 5 












3 16 






• • *********** 


31 7 






.EVEN 






318 


A/\-1 71i 

001316 




SMAIL 






319 


AA1 T1 
0013IO 


000000 


SMSGTY: 


.WORD 


70A 

320 


001320 


000000 


$FATAL : 


.WORD 


701 
52 1 


AA1 TOO 

001322 


000000 


STESTN: 


.WORD 


TOO 

ice 


AA1 TO/ 

00152s 


An/vinn 
000000 


SPASS 




.WORD 


TOT 


AA1 TOA 

001 32o 


000000 


SDEVCT: 


.WORD 


TO/ 

524 


001530 


000000 


SUNIT 




.WORD 


TOC 

52-) 


AA1 77^ 

001 552 


000000 


SMS GAD : 


.WORD 


526 


AA1 77/ 

001334 


000000 


SMSGLG: 


.WORD 


T07 

52 f 


AA1 77/ 

001 350 




$E TABLE 




TOO 

520 


AA1 TTA 

001 33o 


U02 


$ENV: 




.BYTE 


TOO 

52V 


Afti TT7 

00135/ 


AAA 

ouu 


SENVM 




.BYTE 


tta 
53U 


AA1 T/ A 

001 34 U 


AAAAAA 

uooouo 


SSUREG: 


.WORD 


TT1 

531 


AA1 7/ O 

001 542 


AAAAAA 
000000 


SUSUR 




.WORD 


TTO 

532 


aai tzz 
0U1 3*»h 


AAAAAA 

uoooou 


SCPU0P: 


.WORD 


TTT 

533 






• * 






XX/ 

35*» 






;* 






TT^ 
335 






• * 






TTA 
5jO 






• * 
> 






TT7 

jjr 






• * 






TTO 

J JO 






• * 






TTO 

35V 


Am tza 

UU I JHO 


AAA 
UUU 


SMAMS1: 


.BYTE 




nm tz7 

UU I JH f 


nnn 
UUU 


SMTYP1 : 


.BYTE 


TZ.1 






; * 












• * 
* 






T/ T 






• * 

* 






XLL 
JMH 






;* 






5*» J 


nni T«;n 

UU I jjU 


uuuuuu 


SMADR1: 


.WORD 


T/.A 






- * 






TZ7 

5*»/ 


nfli 7cj 

UU 1 JJ£ 


AAA 

UUU 


SMAMS2: 


.BYTE 


TAD 


aai 7C7 

Uu I jjj 


AAA 
UUU 


SMTYP2: 


.BYTE 


T/ Q 


AA1 TXZ 

UU 1 5J«t 


AAAAhA 
UUUUUU 


SMADR2: 


.WORD 


ka 
33U 


nrti T1A 
UU 1 5 JO 


AAA 
UUU 


JMAMS3: 


.BYTE 


JJ I 


A/11 t^7 
UU I jj f 


AAA 
UUU 


SMTYP3: 


.BYTE 


7C J 
JJC 


AA1 TAfi 

UU I 30U 


AAAAAA 
UUUUUU 


SMADR3: 


.WORD 


TCT 

5jj 


n/11 TA0 
UU I jO£ 


AAA 

UUU 


SMAMS4: 


•BYTE 


3jh 


rvn tat 

UU I jOj 


AAA 
UUU 


SMTYP4: 


.BYTE 


t«;^ 
535 


nni til/ 
UU 1 5o4 


AAAAAA 

0UUU0U 


SMADR4: 


.WORD 


3jO 


nni TA/» 

0U13OO 


AAAAAA 

uooooo 


SVECT1 : 


.WORD 


T57 


(V>1 T7fl 
UU l j'U 


AAAAAA 
UUUUUU 


SVECT2: 


.WORD 


jjO 


nni T70 
UU 1 jf c 


AAAAAA 

uuuuuu 


S8ASE 




.WORD 


TCQ 

3jt 


nni 77/ 
UU 1 J/** 


AAAAAA 

UUUUUU 


$DEVM 




.WORD 


tah 

50U 


nni 77A 
UU 1 j/O 


nnn/vvi 
UUUUUU 


SCDW1 




.WORD 


7A1 
50 I 


nni/rtrt 
UU 1 hUU 


AAAAAA 
UUUUUU 


SCDU2 




.WORD 


T>»0 


tv\ 1 zno 

UU IhUc 


AAAAAA 

UUUUUU 


SDDWO 




.WORD 


363 


001404 


000000 


SDDU1 




.WORD 


364 


001406 


000000 


SDDW2 




.WORD 


365 


001410 


000000 


SDDU3 




.WORD 


366 


001412 


000000 


SDDW4 




.WORD 


367 


001414 


000000 


SDDU5 




.WORD 


368 


001416 


000000 


SDDW6 




.WORD 


369 


001420 


000000 


$DDW7 




.WORD 


370 


001422 


000000 


SDDW8 




.WORD 



H 2 



I 

PAGE: 0020G 



1*************************************************** 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



AMAMS1 
AMTYP1 



AMADR1 

AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 

ACDW2 

ADDWO 

ADDW1 

ADDW2 

ADDW3 

ADDW4 

ADDW5 

ADDW6 

ADDW7 

ADDW8 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 , 1 1 /05=02 , 1 1 /20=03 , 1 1 /40-04 .11/45-05 
11/70=06,PDQ=07.Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS .M.S. BYTE 
;;MEM. TYPE,BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;HIGH ADDRESS ,BLK#1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABO 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE ,BLK#2 
MEM. LAST ADDRESS, BLK*2 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE, BLK#3 
MEM. LAST ADDRESS, BLK#3 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE, 81 K#4 
MEM. LAST ADDRESS, BLK#4 
INTERRUPT VECT0R#1,BUS PRIORI TYXM 
INTERRUPT VECT0R#2BUS PRIORI TYXT2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION W0RD#1 
CONTROLLER DESCRIPTION W0RDXT2 
DEVICE DESCRIPTOR WORDAO 
DEVICE DESCRIPTOR W0RDA1 
DEVICE DESCRIPTOR W0RD*2 
DEVICE DESCRIPTOR W0RD#3 
DEVICE DESCRIPTOR W0RDXT4 
DEVICE DESCRIPTOR W0RDA5 
DEVICE DESCRIPTOR W0RD#6 
DEVICE DESCRIPTOR W0RD#7 
DEVICE DESCRIPTOR W0RD#8 
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APT MAI IB0X-E TABLE 




371 


\J\J I HCH 


oooooo 






ADDW9 


37? 


WW 1 HCO 


000000 


SDDW1 0 • 


WORD 


ADDW1 0 


373 


0014^0 

ww 1 Hjy 


000000 


SDDW1 1 : 


WORD 


ADDW1 1 


jt *♦ 


00143? 

ww I HjC 


000000 


SDDWl ? ■ 


WORD 


ADDW1 2 


375 

J' J 


001434 


000000 


SDDU1 3 • 


WORD 


ADDW13 


376 


001436 


000000 


SDDW14: 


!w0RD 


ADDW14 


377 

J' t 


001440 


000000 

WWWWVW 


$DDW1 5 : 


.WORD 


ADDW1 5 


Jf o 












379 

J f 7 












JW 


00144? 

wv 1 C 




SETEND: 






381 












38? 






§ 












; PROGRAM CONTROL PARAMI 


384 












385 

J%J J 


001442 


000000 

WW WWW w 


NEXT: 


.WORD 


0 


386 


001444 

WW 1 ~ ~ ~ 


000000 

WW WW WW 


LOCK: 


.WORD 


0 


387 












388 






PROGRAM VARIABLES 


389 












390 

J 7w 


001446 

ww I ~ t w 


000000 

WW WW WW 


STRTSW: 


.WORD 


0 


391 

J 7 I 


001450 


000000 

ww ww ww 


STAT: 


.WORD 


0 


392 

J " *- 


001452 


000000 

www WW w 


CLKX: 


.WORD 


0 


393 


001454 


000000 

www www 


MASKX: 


.WORD 


0 


394 


001456 


000000 

w www w w 


SAVSP: 


.WORD 


0 


395 


001460 

WW 1 ~W^W 


000000 

WW www w 


SAVPC: 


.WORD 


0 


396 


001462 


000000 

W WWW WW 


ZERO: 


.WORD 


0 


397 


001464 


000001 

wwwww ■ 


ONE: 


.WORD 


1 


398 


001466 

WW 1 * 


000000 

WW WW WW 


MEMLIM: 


.WORD 


0 


399 


001470 


000001 

WWWWW 1 


KMACTV: 


.BLKW 


1 




001472 


000001 

W WW WW 1 


KMNUM: 


•BLKW 


1 


401 


001474 


OooOoi 

WWWWW 1 


SAVACT: 


• BLKW 


1 


402 


001476 


000001 

WWWWW 1 


SAVNUM: 


-BLKW 


1 


403 


001500 

WW 1 S WW 


000000 

Wwwww W 


RUN: 


.WORD 


0 


404 

~ W » 








.EVEN 




405 


001502 


002072 


CREAM: 


.WORD 


KM.MAP-6 


406 


001 504 


002276 


MILK: 


.WORD 


CNT.MAP- 


407 












408 






; PROGRAM CONTROL FLAGS 


409 












410 


001506 


000 


INIFLG: 


.8YTE 


0 


411 




001510 




.EVEN 




412 


001510 


000 


L0KFLG: 


.8YTE 


0 


413 


001511 


000 


QV.FLG: 


• BYTE 


0 


414 












415 








.EVEN 
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DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 



W0RD#9 

WORD* 10 

W0RDA11 

W0RD#12 

W0RD#13 

W0RDA14 

W0RD#15 



ADDfvSS OF NEXT TEST TO BE EXECUTED 
ADDRESS FOR LOCK CURRENT DATA 



SWITCHES AT START OF PROGRAM 
KM STATUS WORD STORAGE 



STACK POINTER STORAGE 
PROGRAM COUNTER STORAGE 



HIGHEST LOCATION FOR NPR'S 
KMC11 SELECTED ACTIVE 
OCTAL NUMBER OF KMC11'S 
ORIGINAL ACTIVE DEVICES. 
WORKABLE NUMBER. 
POINTER TO RUNNING DEVICES 

TABLE POINTER 
TABLE POINTER 



; PROGRAM INITIALIZING FLAG 

; LOCK ON CURRENT TEST FLAG 

; 0UICK VERIFY FLAG 

; ON FIRST PASS OF EACH KMC11 ITERATIONS WILL BE 
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ERROR POINTER TABLE 




A1 A 
H IO 




.S8TTL ERROR 


POINTER .ABLE 


A1 7 
M I f 








A1 fi 
M I O 




;*THIS TABLE 


CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


/in 
M IV 




; *THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 


/ pn 




.•♦LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


AP1 

MC I 




;*N0TE1 : 


IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 


APP 

M£C 




;*N0TE2: 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


APT 








A PA 
McH 




;* EM 


; .-POINTS TO THE ERROR MESSAGE 


APS 




;* DH 


;; POINTS TO THE DATA HEADER 


A PA 
HcO 




;* DT 


;; POINTS TO THE DATA 


AP7 




;* DF 


; ; POINTS TO THE DATA FORMAT 


APfl 

HcO 








APQ, 

HC7 








H JU UU 1 J 1 c 




SERRTB: 




A*1 
h j i 




.EVEN 




ATP 




;* DF 


;; DOES NOT APPlY IN THIS DIAGNOSTIC. 


ATT ooisip 

HJJ VA/ I J Ic 


ooooon 

UUUUUU 


0 




ATA 001S1A 
tJH UU 13 It 


oooooo 

UUUUUU 


0 




ats ooisia 

hjj VA/ 1 J IO 


OOOOOO 
UUUUUU 


0 




at/. ooispo 

H 30 UU I JCU 


o*zopn 


EM12 




AT7 001 spp 

Hjf UV I JCc 


07A PA* 


DH5 


; ERROR 1 


A*fl 001 SPA 

tJO UU I Jtt 


oooooo 

UUUUUU 


0 




i« ooispa 

tjT uupjco 


0**ASA 

UJJOJM 


EM2 




AAfi 001 *>^n 

HSU UU 1 JJU 


0*A1 A7 

UJH 1 Of 


DH2 


; ERROR 2 


AA 1 OOISTP 
HH 1 UU 1 JJt 


OTASPA 

vJHJcO 


DT13 


AAP 001 STA 

HHc UU 1 JJH 


0**A77 

UJJOf f 


EM3 




AA T 001 SVi 
HHJ VA/ I J JO 


oooooo 


0 


; ERROR 3 


AAA 001 SAO 
HHH JU I JMU 


OOOOOO 

VAAAAA/ 


0 


AAS 001 SAP 

MM J UU I JHC 


0**7PS 

UJJ' c J 


EM4 




AAA 001 SAA 
MHO VA/ I JHH 


OOOOOO 

UUUUUU 


0 


.-ERROR 4 


AA7 001 SAA 

MM f VA/ I JHU 


OOOOflO 
UUUUUU 


0 




AAA 0O1SS0 
MMO Uul JJU 


0**7A7 
UJJr M f 


EM5 




AAO O01SS? 
HHT VA/ 1 J Jc 


(TOOOO0 
UUUUUU 


0 


; ERROR 5 


A SO 001SSA 
HJU UUP JJH 


OOOOOO 
VAAAA/U 


0 


AS1 001 SSA 
HJ I VA/ I J JO 


yjjf lj 


EM4 




ASP 001 SAO 
HJc VA/ I JOv 


0*A1A7 
UjH 1 Of 


DH2 


; ERROR 6 


AS* 001 SAP 
Hjj VA/ I jOc 


OTAViA 
UjHjOO 


DT5 


ASA 001 SAA 
MjM VA/ 1 JOH 


0*T7A7 

UJJ' Hf 


EM5 




ASS 001SAA 

HJJ VA/ 1 JOO 


0*A1 A7 
UjH I Of 


DH2 


.-ERROR 7 


ASA 001 S70 

M JO VA/ 1 JfU 


0*A*SA 
UjHjjH 


DT4 


AS7 001S7P 

H Jf VA/ P J f C 


OOOOOO 
UVAAA/U 


0 




ASR 001 S7A 

M JO UU I Jf M 


0TA1 TS 
UjH I jj 


DH1 


; ERROR 10 


A SO OP1S7A 
H J7 VA/ I Jf O 


OTAAOO 
UjHHUU 


DT6 


AAO 001 AOO 

HOU VA/ P OVA/ 


ooooon 

VAAAA/U 


0 




AA1 001A0P 
MO I UU P OUc 


0TA1 TS 
UjH I j j 


DH1 


.•ERROR 11 


AA? 001 AOA 

Hue VA/ P OvH 


0*AA1A 


DT7 


AA*. 001AOA 
HO J uv I OVA/ 


OOOOOO 
VAAAAA/ 


0 




A 64 001610 


034167 


DH*: 


; ERROR Id 


465 001612 


034354 


DT4 


466 001614 


033774 


EM11 




467 001616 


034135 


DH1 


.•ERROR 13 


468 001620 


034434 


DT10 


469 001622 


034020 


EM12 




470 001624 


oooooo 


0 


.-ERROR 14 


471 001626 


oooooo 


0 
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472 001630 
475 001632 

474 001634 

475 001636 

476 001640 

477 001642 

478 001644 

479 001646 

480 001650 
481 

482 
483 
484 
485 
486 
487 
488 

489 000024 
490 

491 000044 

492 

493 

494 

495 

496 

497 002034 

498 002034 

499 002036 

500 002040 

501 002042 

502 002044 

503 002046 
504 



034020 
034167 
034366 
034044 
034210 
034452 
034067 
034231 
034464 
002034 



002034 
000024 
000200 
000044 
002034 
002034 



000000 
001316 
000132 
000137 
000137 
000052 



ERROR POINTER TABLE 

EM12 

DH2 

DT5 

EM13 

DH3 

DT11 

EM14 

DH4 

DT12 



K 2 

.-ERROR 15 

.-ERROR 16 

; ERROR 17 



PAGE: 0023C2 



. S8TTL APT PARAMETER BLOCK 

; ; *************************************************************** 

.SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

; ;***********************************, *************************** 



.$x=. 

.=24 
200 
.=44 
SAPTHDR 
. = .$X 



SAVE CURRENT LOCATION 
SET POWER FAIL TO POINT TO START OF PROGRAM 
FOR APT START UP 

POINT TO APT INDIRECT ADDRESS PMR. 
POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 



; *************************************************************** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD: 

SHIBTS: .WORD 

SMBADR: .WORD 

STSTM: .WORD 

SPASTM: .WORD 

SUNITM: .WORD 
.WORD 



0 

SMAIL 

90. 
95. 
95. 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITION 



SETEND-SMAIL/2 ;. "LENGTH MAI LBOX-E TABLE (WORDS) 
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305 






506 






507 






508 






509 


002050 


000000 


510 


002052 


000000 


511 


002054 


000000 


512 






513 






5K 






515 






516 


002056 


000000 


517 


002060 


000000 


518 


002062 


000000 


519 


002064 


000000 


520 


002066 


000000 


521 


002070 


000000 


522 


002072 


000000 


523 


002074 


000000 


524 


002076 


000000 


525 






526 






527 






528 






529 






530 






531 






532 






533 






534 






535 




002100 


536 


002100 




537 


002100 


000001 


538 


002102 


000001 


539 


002104 


000001 


540 


002106 


000001 


541 






542 


002110 


000001 


543 


002112 


000001 


544 


002114 


000001 


545 


002116 


000001 


546 






547 


002120 


000001 


548 


002122 


000001 


549 


002124 


000001 


550 


002126 


000001 


551 






552 


002130 


000001 


553 


002132 


000001 


554 


002134 


000001 


555 


002136 


000001 


556 






557 


002140 


000001 


558 


002142 


000001 


559 


002144 


000001 


560 


002146 


000001 



L 2 

APT PARAMETER BLOCK 
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;KMC11 CONTROL INDICATORS FOR CURRENT KMC11 UNDER TEST 



STAT1 : 


0 


STAT2: 


0 


STAT3: 


0 



;KMC11 VECTOR AND REGISTER INDIRECT POINTERS 



KMRVEC : 0 
KMRLVL: 0 
KMTVEC: 0 
KMTLVL: 
KMCSR: 
KMCSRH: 
KMCTL: 
KMP04: 
KMP06: 



0 
0 
0 
0 
0 
0 



; TEMP STORAGE 



;TEMP: 0 
;.=.+40 



POINTER TO KMC 11 RECEIVER INTERRUPT VECTOR 
POINTER TO KMC11 RECEIVER INTERRUPT SERVICE PS 
POINTER TO KMC11 TRANSMITTER INTERRUPT VECTOR 
POINTER TO KAX11 TRANSMITTER INTERRUPT SERVKE PS 
POINTER TO KMC11 CONTROL STATUS REGISTER 
POINTER TO KMC11 CONTROL STATUS REGISTER HIGH BYTE, 
POINTER TO KMC11 CONTOL OUT REGISTER 
POINTER TO KMC11 PORT REGISTER(SEL 4) 
POINTER TO KMC11 PORT REGISTER(SEL 6) 



;KMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 



.=2100 

KM. MAP: 

KMCROO: 

KMS100: 

KMS200: 

KMS300: 

KMCR01 : 
KMS101: 
KMS201: 
KMS301 : 

KMCR02: 
KMS102: 
KMS202: 
KMS302: 

KMCR03 
KMS103 
KMS203 
KMS303 

KMCR04 
KMS104 
KMS204 
KMS304 



.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 



CONTROL STATUS REGISTER FOR KMC11 NUMBER 00 
VECTOR FOR KMC11 NUMBER 00 
DDCMP LINE* FOR KMC 11 NUMBER 00 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 01 
VECTOR FOR KMC11 NUMBER 01 
DDCMP LINE* FOR KMC11 NUMBER 01 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 02 
VECTOR FOR KMC11 NUMBER 02 
DDCMP LINE* FOR KMC11 NUMBER 02 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 03 
VECTOR FOR KMC11 NUMBER 03 
DDCMP LINE* FOR KMC11 NUMBER 03 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 04 
VECTOR FOR KMC11 NUMBFR 04 
DDCMP LINE* FOR KMC11 NUMBER 04 
3RD STATUS WORD 
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APT PARAMETER BLOCK 


561 










562 


0021 50 


000001 

wvw ■ 


KMCR05 : 


.BLKW 


563 


0021 52 


000001 

www " 


KMS105: 


•BLKU 


564 


0021 54 


000001 


BMS205 ; 


jBLXW 


565 


002156 


000001 


KMS305 : 


.BLKU 


566 










567 


002160 


000001 


KMCR06: 


.BLKU 


568 


002162 


000001 


KMS106: 


.BLKU 


569 


002164 


000001 


KMS206: 


.BLKU 


570 


002166 


000001 


KMS306: 


.BLKU 


571 










572 


002170 


000001 


KMCR07: 


.BLKU 


573 


002172 


000001 


KMS107: 


.BLKU 


574 


002174 


000001 


KMS207: 


.BLKU 


575 


002176 


000001 


KMS307: 


• BLKU 


576 










577 


002200 


000001 


KMCR10: 


.BLKU 


578 


002202 


000001 


KMS110: 


.BLKU 


579 


002204 


000001 


KMS210: 


.BLKU 


580 


002206 


000001 


KMS310: 


.BLKU 


581 










582 


002210 


000001 


KMCR1 1 : 


.BLKU 


583 


002212 


000001 


KMS111 : 


.BLKU 


584 


002214 


000001 


KMS21 1 : 


.BLKU 


585 


002216 


000001 


KMS311: 


.BLKU 


586 










587 


002220 


000001 


KMCR12: 


.BLKU 


588 


002222 


000001 


KMS112: 


•BLKU 


con 

589 


002224 


000001 


KMS212: 


.BLKU 


590 


002226 


000001 


KMS312: 


.BLKU 


591 










592 


002230 


000001 


KMCR13: 


■BLKU 


593 


002232 


000001 


KMS113: 


.BLKU 


594 


002234 


000001 


KMS213: 


.BLKU 


595 
596 


002236 


000001 


KMS313: 


.BLKU 


597 


002240 


000001 


KMCR14: 


.BLKU 


598 


002242 


000001 


KMS114: 


.BLKU 


599 


002244 


000001 


KMS214: 


.BLKU 


600 
601 


002246 


000001 


KMS314: 


.BLKU 


602 


002250 


000001 


KMCR15: 


■BLKU 


603 


002252 


000001 


KMS115: 


.BLKU 


oOh 


002254 


000001 


KMS215: 


.BLKU 


605 
606 


002256 


000001 


KMS315: 


.BLKU 


607 


002260 


000001 


KMCR16: 


•BLKU 


608 


002262 


000001 


KMS116: 


.BLKU 


609 


002264 


000001 


KMS216: 


.BLKU 


610 
611 


002266 


000001 


KMS316: 


.BLKU 


612 


002270 


000001 


KMCR17: 


.BLKU 


613 


002272 


000001 


KMS117: 


.BLKU 


614 


002274 


000001 


KMS217: 


.BLKU 


615 


002276 


000001 


KMS317: 


.BLKU 


616 
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CONTROL STATUS REGISTER FOR KMC11 NUMBER 05 
VECTOR FOR KMC11 NUMBER 05 
DDCMP 1 INE* FOR KMC 1 1 MfBFft OS 
3RD STATUS U0RD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 06 
VECTOR FOR KMC11 NUMBER 06 
DDCMP LINE* FOR KMC11 NUMBER 06 
3RD STATUS U0RD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 07 
VECTOR FOR KMC11 NUMBER 07 
DDCMP LINE* FOR KMC11 NUMBER 07 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 10 
VECTOR FOR KMC11 NUMBER 10 
DDCMP LINE* FOR KMC11 NUMBER 10 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC 11 NUMBER 11 
VECTOR FOR KMC11 NUMBER 11 
DDCMP LINE* FOR KMC11 NUMBER 11 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 12 
VECTOR FOR KMC11 NUMBER 12 
DDCMP LINE* FOR KMC11 NUMBER 12 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 13 
VECTOR FOR KMC11 NUMBER 13 
DDCMP LINE* FOR KMC11 NUMBER 13 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 14 
VECTOR FOR KMC11 NUMBER 14 
DDCMP LINE* FOR KMC11 NUMBER 14 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 15 
VECTOR FOR KMC11 NUMBER 15 
DDCMP LINE* FOR KMC11 NUMBER 15 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 16 
VECTOR FOR KMC11 NUMBER 16 
DDCMP LINE* FOR KMC11 NUMBER 16 
3RD STATUS UORD 

CONTROL STATUS REGISTER FOR KMC11 NUMBER 17 
VECTOR FOR KMC11 NUMBER 17 
DDCMP LINE* FOR KMC11 NUMBER 17 
3RD STATUS UORD 
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APT PAPAMFTFD HI Cl 
Mr 1 rWwvTt I Cn OLU 


618 








619 






•k"MP11 PA 

, W1L I I rM. 


620 






• 


621 








622 


002302 




rwT MAP • 
L^l I .PiMr . 


623 


002302 


000000 


PArTnn- n 

rnL I UVJ . U 


624 


002304 


000000 


CrtL I \J\J • U 


625 








626 


002306 


000000 


DAT TO 1 • n 
rML 1 U 1 . U 


627 


00231 C 


000000 




628 








629 


002312 


000000 


rML 1 Uc . U 


630 


002314 


000000 


ppptpi?- n 

CnL I Uc • U 


631 








632 


002316 


000000 


papto7- n 


633 


002320 


000000 


fpptpi'?- n 

C n L 1 vJ • u 


634 








635 


002322 


000000 


paptha ■ o 

rML 1 Ut - U 


636 


002324 


000000 




637 








638 


002326 


000000 


papta*;- n 


639 


002330 


000000 


CnL 1 \)J • u 


640 








641 


002332 


000000 


PAPTPlA- n 
r M L IUO. U 


642 


002334 


000000 




643 








644 


002336 


000000 


PAP Tfl7 • n 
rML IUi . U 


645 


002340 


000000 


fpptpi7- n 


646 








647 


002342 


000000 


rnL 1 1 U - U 


648 


002344 


000000 




649 








650 


002346 


000000 


PAPT1 1 • n 
rnl III. U 


651 


002350 


000000 


CnL III. U 


652 








653 


002352 


000000 


PA P T 1 ? • n 
rML lit. U 


654 


002354 


000000 


ERCT12: 0 


655 








656 


002356 


000000 


pa r t 1 • n 

rML I I J . U 


657 


002360 


000000 


CnL f 1 J . VJ 


658 






659 


002362 


000000 


PAP T1 A • n 
rML I I *♦ . w 


660 


002^64 


000000 


CnL I I *• . U 


661 








OOc 




(\f\r\f\fv\ 

uuuuuo 


PAPT1^> n 
rML I lj. w 


663 


002370 


000000 


ERCT15: 0 


664 








665 


002372 


000000 


PAPT1A- fl 
rML I 1 0 . U 


666 

667 


002374 


000000 


ERCT16: 0 


668 


002376 


000000 


PACT17: 0 


669 


002400 


000000 


ERCT17: 0 


670 







AND ERROR COUNT TABLE 



PASS COUNT FOR KMC11 NUMBER 00 
ERROR COUNT FOR KMC11 NUMBER 00 

PASS COUNT FOR KMC11 NUMBER 01 
ERROR COUNT FOR KMC 11 NUMBER 01 

PASS COUNT FOR KMC11 NUMBER 02 
ERROR COUNT FOR KMC11 NUMBER 02 

PASS COUNT FCR KMC 11 NUMBER 03 
ERROR COUNT FOR KMC11 NUMBER 03 

PASS COUNT FOR KMC11 NUMBER 04 
ERROR COUNT FOR KMC 11 NUMBER 04 

PASS COUNT FOR KMC11 NUMBER 05 
ERROR COUNT FOR KMC11 NUMBER 05 

PASS COUNT FOR KMC11 NUMBER 06 
ERROR COUNT FOR KMC 11 NUMBER 06 

PASS COUNT FOR KMC 11 NUMBER 07 
ERROR COUNT FOR KMC 11 NUMBER 07 

PASS COUNT FOR KMC11 NUMBER 10 
ERROR COUNT FOR KMC11 NUMBER 10 

PASS COUNT FOR KMC11 NUMBER 11 
ERROR COUNT FOR KMC 11 NUMBER 11 

PASS COUNT FOR KMC11 NUMBER 12 
ERROR COUNT FOR KMC11 NUMBER 12 

PASS COUNT FOR KMC11 NUMBER 13 
ERROR COUNT FOR KMC11 NUMBER 13 

PASS COUNT FOR KMC11 NUMBER 14 
ERROR COUNT FOR KMC 11 NUMBER 14 

PASS COUNT FOR KMC 11 NUMBER 15 
ERROR COUNT FOR KMC11 NUMBER 15 

PASS COUNT FOR KMC 11 NUMBER 16 
ERROR COUNT FOR KMC 11 NUMBER 16 

PASS COUNT FOR KMC 11 NUMBER 17 
ERROR COUNT FOR KMC11 NUMBER 17 
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675 
676 
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FORMAT OF STATUS TABLE 
15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 



I 




I 




I 




I 


I 




I 




I 




I 


I 




I 




I 




I 




I 






I 




I 


I 


c 




0 




N 




T 


R 




0 




L 






R 




E 




G 




I 




S 


T 




E 


R I 


I 




I 




I 




I 


I 




I 




I 




I 


I 




I 




I 




I 




I 






I 




I 




I 




I 




I 




I 


I 




I 




I 




I 


I 




I 




I 




I 




I 






I 




[ I 


I 


* 


I 


* 


I 


• 


I 


* I 


* 


I 


* 


I 


* 


I 


* 


* 




V 




E 




C 




T 


0 




R 


* I 


I 




I 




I 




I 


I 




I 




I 




I 


I 




I 




I 




I 




I 






I 




[ I 




I 




I 




I 




I 


I 




I 




I 




I 


I 




I 




I 




I 




I 






I 




[ I 


I 


• 




B 




M 






A 




D 
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CSR 



STAT1 



STAT2 



STAT3 



DEFINITION OF FORMAT 



CSR: CONTAINS KMC1 1 CSR ADDRESS 

STAT1: BITS 00-08 IS KMC11 VECTOR ADDRESS 

BIT 14=1 ???? TURNAROUND CONNECTOR IS ON 

BIT14=0 NO TURNAROUND CONNECTOR 

BIT 13=0 LINE UNIT IS AN M8201 

BIT13=1 LINE UNIT IS AN M8202 

BIT12=1 NO LINE UNIT 

BITS 09-11 IS KMC 11 BR PRIORITY LEVEL 

STAT2: LOW BYTE IS SWITCH PAC*1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC*2 (BM873 BOOT ADD) 

STAT3: BIT0=1 DO FREE RUNNING TESTS ON KMC 

(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY]) 
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725 










726 










727 










728 










729 










730 










731 










732 










733 


002402 


012737 


000340 


1 77776 


734 


002410 


012706 


001200 




735 


002414 


012737 


007122 


000024 


736 


002422 


013737 


001472 


001476 


737 


002430 


005037 


011432 




738 


002434 


105037 


001 203 




739 


002440 


105037 


001511 




740 


002444 


012737 


002070 


001 502 


741 


002452 


012737 


002276 


001 504 


742 


002460 


012737 


100000 


001500 


743 


002466 


012700 


002302 




744 


002472 


005020 






745 


002474 


022700 


002402 




746 


002500 


001374 






747 


002502 


005037 


001216 




748 


002506 


012737 


000001 


001202 


749 


002514 


012737 


002402 


001206 


750 










751 


002522 


132737 


000001 


001336 


752 


002530 


001404 






753 


002532 


013737 


001340 


0001 76 


754 


002540 


000423 






755 


002542 


013746 


000006 




756 


002546 


013746 


A A a j 

000004 




757 


002552 


012737 


002606 


00000* 


758 


002560 


012737 


177570 


001240 


759 


002566 


012737 


177570 


001242 


760 


002574 


022777 


\77777 


176436 


761 


002602 


001402 






762 


002604 


000407 






763 


002606 


022626 






764 


002610 


012737 


0001 76 


001240 


765 


002616 


012737 


0001 74 


001242 


766 


002624 


012637 


000004 




767 


002630 


012637 


000006 




768 


002634 


105737 


001506 




769 


002640 


001006 






770 


002642 


022737 


004070 


000042 


771 


002650 


001402 






772 


002652 


104401 


001000 




773 


002656 


004737 


011226 




774 


002662 


017737 


176352 


001446 


775 


002670 


005737 


000042 




776 


002674 


C01402 






777 


002676 


005037 


001446 




778 


002702 


032737 


000001 


001446 


779 


002710 


001012 






780 


0027-\2 


105737 


001446 





D 3 

ZATION AND START UP. 



PAGE: 0029C2 



PROGRAM INITIALIZATION 

LOCK OUT INTERRUPTS 

SET UP PROCESSOR STACK 

SET UP POWER FAIL VECTOR 

CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

TYPE TITLE MESSAGE 



MOV 


#340, PS 


LOCK OUT INTERRUPTS 


MOV 


#STACK.SP 


SET UP STACK 


MOV 


#$PWRDN,a#24 


SET UP POWER FAIL VECTOR 


MOV 


KMNUM.SAVNUM 


SAVE NUMBER OF DEVICES IN SYSTEM. 


CLR 


SWFLG 


CLEAR SOFT TYPEOUT FLAG 


CLR8 


$ERFLG 


CLEAR ERROR FLAG 


CLR8 


QV.FLG 


ZERO QUICK VERIFY FLAG 


MOV 


#KM.MAP-10, CREAM. 


GET MAP POINTER. 


MOV 


#CNT.MAP-4,MILK , 


GET PASS COUNT MAP POINTER 


MOV 


#BIT15.RUN 


POINT POINTER TO FIRST DEVICE. 


MOV 


#CNT.MAP,RO 


PASS COUNT POINTER TO RO 


CLR 


(R0) + 


CLEAR TABLE 


CMP 


#CNT.MAP+100,RO , 


DONE YET? 


BNE 


23$ 


KEEP GOING 


CLR 


SERRPC 


■CLEAR LAST ERROR POINTER 


MOV 


#1,$TSTNM 


;SET UP FOR TEST 1 


MOV 


#.START,$LPADR 


•SET UP FOR POWER FAIL BEFORE 
•TESTING STARTS 


BITS 


#1 ,$ENV 


• IS IT RUNNING UNDER APT? 


BEQ 


3$ 


r IF NOT CHECK FOR TYPE OF SWITCH REGISTER 


MOV 


$SWREG.SWREG 


; LOAD SOFTWARE SWITCH REG. 


BR 


6$+2 


• GO SET UP SOFTWARE SWITCH REG. 


MOV 


a#6,-(SP) 


;SAVE CURRENT VECTORS 


MCV 


a#4,-(SP) 




MOV 


#6$,a#4 

#1 77570. SWR 


•SET UP FOR TIMEOUT 


MOV 


;SET SWR TO HARD SWR ADDRESS 


MOV 


#177570,01 SPLAY 


,SET DISPLAY TO HARD SWR ADDRESS 


CMP 


#-1 ,aswR 

6$+2 


.REFERENCE HARDWARE SWITCH REGISTER 


BEQ 


; IF = -1 USE SOFT SWR ANYWAY 


BR 


7$ 


; IF IT EXISTS AND NOT = -1 USE HARD SWR 


CMP 


(SP)+,(SP)+ 


; ADJUST STACK 


MOV 


#SWREG,SWR 


^POINTER TO SOFT SWP 


MOV 


#D I SPREG, DISPLAY 


•POINTER TO SOFT DISPLAY REG 


MOV 


(SP>+. a#4 


; RESTORE VECTORS 


MOV 


(SP)+.S#6 




TSTB 


INIFLG 


•HAS INITIALIZATION BEEN PERFORMED 


BNE 


20$ 


•BR IF YES 


CMP 


#$ENDAD,i#42 


IF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 


BEQ 


20$ 




TYPE 


,MTITLE 


• TYPE TITLE MESSAGE 


JSR 


PCCKSWR 


;CHECK FOR SOFT SWR 


MOV 


3SWR,STRTSW 


•STORE STARTING SWITCHES 


TST 


a#42 


IS IT RUNNING IN AUTO MODE? 


BEQ 


.+6 


;BR IF NO 


CLR 


STRTSW 


;IF YES. CLEAR SWITCHES 


BIT 


#SW00,STRTSW 


•IF SW00=1, QUESTIONS ARE ASKED. 
BR IF SWO0=1 


BNE 


17$ 


TSTB 


STRTSW 


;BIT7=1?? 
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781 


002716 


100007 






782 


002720 


005737 


001470 




783 


002724 


001027 






784 


002726 


104401 


010725 




785 


002732 


000000 






786 


002734 


000776 






787 


002736 


105737 


001 336 




788 


002742 


001405 






789 


002744 


132737 


000001 


001336 


790 


002752 


001012 






791 


002754 


000406 






792 


002756 


105737 


001337 




793 


002762 


100406 






794 


002764 


042737 


000001 
012124 


001446 


795 


002772 


004737 




796 


002776 


000402 






797 


003000 


004737 


013540 




798 


003004 


105737 


001506 




799 


003010 


001410 






800 


003012 


105737 


001446 




801 


003016 


100431 






802 


003020 


032737 


000006 


001446 


803 


003026 


001403 






804 


003030 


000424 






805 


003032 


105137 


001506 




806 


003036 


104401 


010073 




807 


003042 


012704 


002100 




808 


003046 


010437 


001276 




809 


003052 


012437 


001300 




810 


003056 


001411 






811 


003060 


012437 


001302 




812 


003064 


012437 


001304 




813 


003070 


012437 


001306 




814 


003074 


104416 






815 


003076 


011074 






816 


003100 


000762 






817 


003102 


012700 


002100 




818 










819 










820 










821 










822 










823 










824 










825 










826 










827 










828 










829 


003106 


013746 


000004 




830 


003112 


013746 


000006 




831 


003116 


005037 


000006 




832 


003122 


005037 


001302 




833 


003126 


011037 


002066 




834 


003132 


001510 






835 


003134 


012737 


003240 


000004 


836 


003142 


012703 


000010 





E 3 

SRAM INITIALIZATION AND START UP. 



PAGF: OOZOCi 





BPL 


17$ 


BR IF SW07=0 




TST 


KMACTV 


ARE ANY DEVICES SELECTED? 




BNE 


16$ 


BR IF YES 




TYPE, 


NOACT 


NO DEVICES SELECTED. 




HALT 




STOP THE SHOW 


17$: 


BR 


.-2 ; 


DISQUALIFY CONTINUE SWITCH 


TST8 


$ENV 


IS IT UNDER APT DUMP MODE? 




BEQ 


27$ 


YES. CHECK IF APT SIZED IT? 




BITS 


#1.$ENV 


IS IT UNDER Q.V OR RUN MODE? 




BNE 


30$ 


• YES. NEEDS ONLY APT SIZING. 


27$: 


BR 


33$ 


• NO. NEEDS REGULAR AUTO. SIZE. 


TSTB 


$ENVM 


• IS IT SIZED BY APT? 




BMJ 


30$ 


• YES. NEEDS ONLY APT SIZING. 




BIC 


fSWOO.STRTSW 


■ SIZE ONLY IN AUTO MODE. 


33$: 


JSR 


PC. AUTO. SIZE 


• GO 10 THE AUTO. SIZE. 




BR 


16$ 


• GO PRINT THE MAP. 


30$: 


JSR 


PC.APT.SIZE 


• GO DO THE APT SIZING. 


16$: 


TST8 


INIFLG 


FIRST TIME? 




8EQ 


21$ 


BR IF YES 




TSTB 


STRTSW 


;IF USING SAME PARAMETERS DONT 




BMJ 


1$ 




BIT 


#BIT1!BIT2.STRTSW;IS TEST NO. OR LOCK SELECTED 




BEQ 


24$ 


;IF NO THEN TYPE STATUS 


21$: 


BR 


1$ 


;IF YES DO NOT TYPt STATUS 


COMB 


INIFLG 


;SET FLAG 


24$: 


TYPE 


. XHEAD 


;TYPE HEADER 




MOV 


#KM.MAP.R4 


;SET POINTER 


5$: 


MOV 


R4,$TMP0 


;SET ADDRESS 




MOV 


(R4)+.$TMP1 


;SET CSR 




BEQ 


1$ 


;ALL DONE IF ZERO 




MOV 


(R4)+,$TMP2 


rSET STAT1 




MCV 


(R4)+.$TMP3 


;SET STAT2 




MOV 


(R4)+,$TMP4 


rSET STAT3 




CONVRT 




rTYPE OUT STATUS MAP 




XSTATQ 








BR 


5$ 




1$: 


MOV 


#KM.MAP.RO ;R0 POINTS TO STATUS TABLE 



; ******************************************************************** 

;*AUTO SIZE TEST 

;*THIS TEST VERIFYS THAT THE KMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
.••ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS. IT IS NOT A HARDWARE ERROR. 
;*CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ.DH.DQ.DU.DUP.LK.DMC.DZ.KMC) . 
;*IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE KMC11. THE FIRST 
;* KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
.-♦ADDRESS 760000. 

; ******************************************************************** 



MOV 
MOV 
CLR 
CLR 

AUSTRT: MOV 
BEQ 

2$: MOV 
3$: MOV 



3#4,-<S?) 

3#6.-<SP) 

3#6 

$TMP2 

(RO).KMCSR 

AUDONE 

#N0DEV.a#4 

#10. R3 



SAVE LOC 4 

SAVE LOC 6 

CLEAR VEC+2 

CLEAR FLAG 

GET NEXT KMC CSR 

BR IF DONE 

SET UP FOR TIMEOUT 

R3 IS COUNT OF DEVICES BEFORE KMC 
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PROGRAM INITIALIZATION 



000004 



001460 



001302 



4$: 


MOV 




MOV 


FLOAT: 


TST 




M0V8 




ADD 




INC 




8IC 




TST 




BNE 




MOV 


FY: 


TST 




CMP 




BEQ 




ADD 




BR 


OK: 


ADD 




ADD 




MOV 




BEQ 




BR 


NODE V : 


CMPB 




RTI 


ERR: 


TST 




BNE 




TYPE 




CONERR 




MOV 




CNVRT 




ERRPC 




TYPE 




CNERR 




MCV 


1$: 


MOV 




CONVRT 




C0NTA8 


3$: 


TYPE 




KMCM 


4$: 


CMP 




BR 


ERRPC : 


1 




.BYTE 




SAVPC 


C0NTA8: 


2 




.BYTE 




$REG1 




.BYTE 




KMCSR 


DEVTAB: 


.BYTE 




.BYTE 




.6YFE 




.BYTE 




.BYTE 




.BYTE 




.BYTE 




.BYTE 




.BYTE 



PAGE: 0031 C; 
AND START UP. 



#DEVTAB,R2 ;R2 IS DEVICE TABLE PONTER 

#160010. R1 .-START WITH ADDRESS 160010 

(R1) .-CHECK ADDRESS IN R1 

(R2).R4 ;IF NO TIMEOUT. GET NEXT ADDRESS 

R4.R1 ;IN R1 

R1 

R4.R1 

R3 ;ANY MORE DEVICES TO CHECK FOR? 

FLOAT ;BR IF YES 

#ERR.3#4 ;0K ONLY KMC'S ARE LEFT. SET UP FOR TIMEOUT 

(R1) .-CHECK KMC ADDRESS 

R1. KMCSR ;D0ES IT MATCH 

OK ;BR IF YES 

#10. R1 ;GET NEXT KMC ADDRESS 

FY ;D0 IT AGAIN 

#10. RO ;SKIP TO NEXT KMC CSR 

#10, R1 ; GET NEXT KMC ADDRESS 

(RO) .KMCSR ; GET NEXT KMC CSR 

AUDONE ; BRANCH IF ALL DONE. 

FY ; DO IT AGAIN. 

(R2)+.-(R3) ;0N TIMEOUT, INC R2. DEC R3 
■ SLPADR 

$TMP2 -CHECK FLAG IF = 0 TYPE HEADER 

1$ .-SKIP HEADER 

;TYPE0UT HEADER MESSAGE 

.-CONFIGURATION ERROR! ! ! ' 

#ERR. SAVPC .-SAVE PC FOR TYPEOUT 

;TYPE OUT ERROR PC 

•TYPE REST OF HEADER 

#-1,$TMP2 ;SET FLAG SO IT ONLY GETS TYPED ONCE 

R1.SREG1 .-SAVE R1 FOR TYPEOUT 

;TYPE CSR VALUES 

(SP) + .(SP)+ .-ADJUST STACK 

OK ;BR TO GET OUT 

6.2 

6.4 
6,2 

7 ;DJ 

17 ;DH 

7 ;DQ 

7 ;DU 

7 ;DUP 

7 ;LK 

7 ;DMC 

7 ;DZ 

7 ;KMC 
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893 003354 

894 003354 

895 003354 012637 000006 
8% 003360 012637 000004 

897 003364 032737 000010 0C1446 

898 003372 001422 

899 003374 104401 010013 

900 003400 005000 

901 003402 000000 

902 003404 027737 175630 001474 

903 003412 101404 

904 003414 104401 007666 

905 003420 000000 

906 003422 000776 

907 003424 017737 175610 001470 

908 003432 013700 001470 

909 003436 000000 

910 003440 012700 0003C0 

911 003444 012701 000302 

912 003450 010120 

913 003452 005021 

914 003454 022021 

915 003456 022700 001 001 

916 003462 001372 
917 

918 
919 
920 

921 003464 012706 001200 

922 003470 013746 000006 

923 003474 013746 000004 

924 003500 005000 

925 003502 012737 003546 000004 

926 003510 005037 000006 

927 003514 005720 

928 003516 022700 157776 

929 003522 001374 

930 003524 162700 007776 

931 003530 010037 001466 

932 003534 012637 000004 

933 003540 012637 000006 

934 003544 000413 

935 003546 022626 

936 003550 162700 000004 

937 003554 162700 007776 

938 003560 022700 030000 

939 003564 001361 

940 003566 012700 037400 

941 003572 000756 

942 003574 012737 000340 177776 

943 003602 032737 000004 001446 

944 003610 001406 

945 003612 104401 007712 

946 003616 012737 000240 004146 

947 003624 000403 

948 003626 013737 004354 004146 



AND STAJT UP. 



(SP) + ,JJ*6 
(SP)+.3#4 
#SW03,STRTSW 
3$ 

.MNEW 
R0 

aSWR,SAVACT 
2$ 

.MERR3 
.-2 

3SWR.KMACTV 
KMACTV.RO 

#300. RO 
#302, R1 
R1.(R0)+ 
(R1) + 

(R0) + .<R1H 

#1000.R0 

4$ 

RESTART 



#STACK.SP 
a#6.-(5PJ 
a#4. -<SP> 
RO 

#2$.a#4 

9*6 

<R0) + 

#1 57776. RO 
6$ 

M7776.R0 

RO.MEMLIM 

(SP)+.i#4 

(SP)+,a#6 

10$ 

(SP)+,(SP)+ 
#4,R0 
#7776.R0 
#30000. RO 
7$ 

#37400. RO 
7$ 

#340.PS 

#BIT2.STRTSU 

1$ 

.MLOCK 

#NOP.TTST 

3$ 

BRW.TTST 



RESTORE LOC 6 

RESTORE LOC 4 

SELECT SPECIFIC DEVICES?? 

8R IF NO. 

TYPE THE MESSAGE. 

ZERO DATA LIGHTS 

WAIT FOR USER TO TELL WHAT DEVICES TO RUN 

IS THE NUMBER VALID? 

8R IF NUMBER IS OK. 

TELL USER OF INVALID NUMBER. 

STOP EVERY THING. 

RESTART THE PROGRAM AGAIN. 

GET NEW DEVICE PATTERN 

SHOW THE USER WHAT HE SELECTED. 

CONTINUE DYNAMIC SWITCHES. 

PREPARE TO CLEAR THE FLOATING 

VECTOR AREA. 300-776 

START PUTTING "K+2 - HALT" 

IN VECTOR AREA. 

POP POINTERS 

ALL DONE?? 

BR IF NO. 



SET UP STACK 
SAVE LOC 6 
SAVE LOC 4 
START AT 0 
SET UP FOR TIME OUT 
TO AUTOS I 2E MEMORY 
CHECK ADDRESS IN RO 
IS IT AT LEAST 28K 
BR IF NO 

SAVE 2K FOR MONITORS 

STORE MEMORY LIMIT 

RESTORE LOC 4 

RESTORE LOC 6 

CONTINUE 

ADJUST STACK 

GET LAST GOOD ADDRESS 

SAVE 2K FOR MONITORS 

IS IT 8K? 

BR IF NO 

IF 8K DON'T SAVE 2K 

LOCK OUT INTERRUPTS 

CHECK FOR LOCK ON TEST 

BR IF NO LOCK DESIRED. 

TYPE LOCK SELECTED. 

SET UP TO LOCK 

CONTINUE ALONG. 

PREPARE NORMAL SCOPE ROUTINE 
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949 003634 012737 011474 001206 

950 003642 032737 000002 001446 

951 003650 001002 

952 003652 104401 007636 

953 003656 000177 175324 



H 3 

PROGRAM INITIALIZATION AND START UP. 

3$: MOV #CYCLE,$LPADR 

4$: BIT #SW01,STRTSW 

BNE 5$ 

TYPE .MR 

5 J: JMP a$LPADR 



PAGE: 0033C; 



.•START AT "CYCLE" FIND WHICH DEVICE TO TEST 
;IS TEST NO. SELECTED? 
;8R IF YES 
.-TYPE R 

.•START TESTING 
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954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 

967 003662 

968 003662 000005 

969 003664 005237 001 324 

970 003670 105037 001203 

971 003674 104401 007614 

972 003700 104401 007741 

973 003704 104417 004104 

974 003710 104401 007747 

975 003714 104417 004112 

976 003720 104401 007755 

977 003724 104417 004120 

978 003730 104401 007766 

979 003734 104417 004126 

980 003740 013700 001504 

981 003744 013720 001324 

982 003750 013720 001212 

983 003754 013777 002060 

984 003762 005077 176072 

985 003766 013777 002064 

986 003774 005077 176064 

987 004000 005337 001476 

988 004004 001035 

989 004006 112737 

990 004014 013737 

991 004022 005037 

992 004026 005037 

993 004032 005237 

994 004036 042737 

995 004044 005327 

996 004046 000001 

997 004050 003013 

998 004052 012737 

999 004054 000001 

1000 004056 004046 

1001 004060 013700 000042 

1002 004064 001405 

1003 004066 000005 

1004 004070 004710 

1005 004072 000240 

1006 004074 000240 

1007 004076 000240 

1008 004100 

1009 004100 000137 
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END OF PASS ROUTINE 
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END Of PASS 
TYPE NAME OF TEST 
UPDATE PASS COUNT 
CHECK FOR EXIT TO ACT-11 
RESTART TEST 

.SBTTL END OF PASS ROUTINE 

; ; *************************************************************** 

; * INCREMENT THE PASS NUMBER ($PASS) 
;*IF THERES A MONITOR GO TO I T 
;*IF THERE ISN'T JUMP TO CYCLE 

$EOP: 



176074 
176066 



000377 001511 
001472 001476 
001216 
001310 
001324 

100000 001324 





DC CC T 








i Kir 
INC 


5PA55 


INCREMENT THE PASS COUNT 




LLrttj 




CLEAR ERROR FLAG 




T VDC 


yr da C C 


TYPE END PASS. 




T VDC 


ur CD V 


TYPE "CSR" 




riMUDT 

LiMVK 1 




SHOW IT. 




TYPE 


.MVECX 


TYPE VECTOR. 




CNVRT 


.XVEC 


SHOW IT. 




T VDC 




TYPE PASSES 




CNVK 1 


.XPASS 


SHOW IT. 




TYPE 


,MERRX 


TYPE " ERRORS " 




CNVRT 


,XERR 


SHOW IT. 




HUV 


mi v oa 


SET POINTER TO PASSCNT. 




nuV 




SAVE THE PASS COUNT . 




nuv 


»cRTTL,(RU)+ 


SAVE ERROR COUNT 




MOV 


KMRLVL .9KMRVEC . 


RESTORE THE RECEIVER INTERRUPT 




CLR 


3KMRLVL 


RESTORE RECEIVER LEVEL 




MOV 


KMTLVL,aKMTVEC . 


RESTORE THE TRANSMIT INTERRUPT 




CLR 


8KMTLVL '. 


RESTORE TRANSMITTER LEVEL 




DEC 


SAVNUM ; 


ALL DEVICE TESTED? 




onic 




OnANLn ir IMU. 




M0V8 


#377,QV.FLG 


SET QUICK VERIFY FLAG. 




MOV 


KMNUM.SAVNUM 


RESTORE DEVICE COUNT. 




CLR 


SERRPC ; 


CLEAR LAST ERROR PC 




CLR 


STIMES 


.-ZERO THE NUMBER OF ITERATIONS 




INC 


SPASS 


.•INCREMENT THE PASS NUMBER 
.■DON'T ALLOW A NEG. NUMBER 




BIC 


#100000. SPASS ; 




DEC 


(PC)+ ; 


.-LOOP? 


SEOPCT: 


.WORD 


1 






BGT 


SDOAGN 


• YES 




MOV 


(PC)*,a<PC>* 


•RESTORE COUNTER 


SENDCT: 


.WORD 
SEOPCT 


1 


SGET42: 


MOV 


3#42.R0 


;GET MONITOR ADDRESS 




BE0 


SDOAGN 


.•BRANCH IF NO MONITOR 




RESET 




; CLEAR THE WORLD 


SENDAD: 


JSR 
NOP 
NOP 
NOP 


PC,(R0) ; 


;G0 TO MONITOR 
.-SAVE ROOM 
;F0R 
;ACT11 


SDOAGN: 










JMP 


3 (PC)* 


.■RETURN 
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END OF PASS ROUTINE 
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1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 



004102 
004104 
004106 
004110 
004112 
004114 
004116 
004120 
004122 
0O4124 
004126 
004130 
004132 



011474 
000001 

006 
002066 
000001 

004 
002056 
000001 

006 
001324 
000001 

006 
001212 



004134 
004134 
004140 
004144 
004146 
004150 
004154 
004156 
004164 
004172 



005037 
023716 
001413 
000406 
105777 
100065 
017766 
032777 
001056 



004174 000416 



004176 
004202 
004210 
004214 
004220 
004222 
004224 
004230 
004232 
004232 
004236 
004240 
004244 
004250 



013746 
012737 
005737 
012637 
000436 
022626 
012637 
000437 

105737 
001404 
105037 
005037 
032777 



002 
002 
002 
002 



001216 
013764 



175070 



175064 177776 
040000 1 75046 



000004 

004222 000004 

177060 

000004 



000004 



001203 



001203 
001310 

004000 17476? 



SRTNAD: .WORD CYCLE 
XCSR: 1 

.BYTE 6.2 

KMCSR 
XVEC: 1 

.BYTE 4.2 

KMRVEC 
XPASS : 1 

.BYTE 6.2 

SPASS 
XERR: 1 

.BYTE 6.2 

tERTTL 



."SCOPE LOOP AND INTERATION HANDLER 



-S8TTL SCOPE HANDLER ROUTINE 

; *************************************************************** 

*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBER (tTSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 

*AND LOAD THE ERROR FLAG '.tERFLG) INTO DISPLAY<1 5 :08> 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW14=1 LOOP ON TE.ST 

*SW1 1=1 INHIBIT ITERATIONS 

*CALL 

* SCOPE ;;SCOPE=IOT 



tSCOPE : 

CLR 
CMP 
BED 
TTST: BR 

TST8 

BPL 

MOV 

1$: BIT 
BNE 

;»*»**START OF 
tXTSTR: BR 



MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

b%:;****Ktm OF 
2$: TST8 
BEG 

4$: CLRB 
CLR 

3$: BIT 



SERRPC 
TSTU2.(SP) 
SXTSTR 
It 

atncs 

tOVER 

atTKB,-2(SP) 
#BIT14.aSWR 
tOVER 
COOE FOR THE XOR 
6t 

8#ERRVEC,-(SP> 
#5t,9#ERRVEC 
3#17>060 
<SP)*.a#ERRVEC 
tSVLAD 
(SP)*,(SP>+ 
<SP)+,i#ERRVEC 
tOVER 

CODE FOR THE XOR 
tERFLG 
3t 

tERFLG 
STIMES 
•/BIT11.9SWR 



CLEAR LAST ERROR PC 
IS THIS TEST #1 ? 
IF SO DON'T LOOP. 

KEYBOARD DONE ? 
IF NO DONT WAIT. 



;;LOOP ON PRESENT TEST? 
;;YES IF SW14=1 
TESTER*flMNT 

IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A 'NOP" (NOP=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER***** 
HAS AN ERROR OCCURRED 
BR IF NO 

ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
INHIBIT ITERATIONS? 
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1066 004256 001011 

1067 004260 005737 001324 

1068 004264 001406 

1069 004266 005237 001204 

1070 004272 023737 001310 001204 

1071 004300 002013 

1072 004302 012737 000001 001204 

1073 004310 013737 004356 001310 

1074 004316 

1075 004316 113737 001202 001322 

1076 004324 011637 001206 

1077 004330 013777 001202 174704 

1078 004336 013716 001206 

1079 004342 005037 001444 

1080 004346 013701 002066 

1081 004352 000002 

1082 004354 000406 

1083 004356 000020 
1084 

1085 
1086 
1087 

1088 004360 004737 011226 

1089 004364 032777 001000 174646 

1090 004372 00K05 

1091 004374 005737 001444 

1092 004400 001402 

1093 004402 013716 001444 

1094 004406 000002 
1095 

1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 



1114 
1115 

1116 004410 105737 001257 

1117 004414 100002 

1118 004416 000000 

1119 004420 000430 

1120 004422 010046 

1121 004424 017600 000002 
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)PE HANDLER ROUTINE 



PAGE: 0036Ci 





BNE 


1$ 




TST 


SPASS 




BEO 


IS 




INC 


SICNT 




CMP 


STIMES.SICNT 




BGE 


SOVER 


1$: 


MOV 


#1,$ICNT 




MOV 


SMXCNT. STIMES 


SSVLAD: 


;INC8 


STSTNM 




M0V8 


STSTNM. STESTN 




MOV 


(SP) .SLPADR 


SOVER: 


MOV 


STSTNM. 3D I SPLAY 




MOV 


SLPADR. (SP> 




CLR 


LOCK 




MOV 


KMCSR.R1 




RTI 


BRW: 


.WORD 


406 


SMXCNT: 


20 





8R IF YES 

IF FIRST PASS OF PROGRAM 

INHIBIT ITERATIONS 
INCREMENT ITER/ T ION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 

; RESET LOCK ON DATA. 

; R1 CONTAINS BASE KMC ADDRESS. 



;MAX. NUMBER OF ITERATIONS 



; CHECK FOR FREEZE ON CURRENT DATA 



.SC0P1: 



1$: 



JSR 
BIT 
BEQ 
TST 
BEQ 
MOV 
RTI 



PC.CKSUR 

#sw09.asuR 
1$ 

LOCK 
1$ 

LOCK. (SP) 



.-CHECK FOR SOFT SWR 
;IS SW09=1(SET>? 
;BR IF NOT SET. 



.-GOTO THE ADDRESS IN LOCK. 
;G0 BACK. 



.-TELETYPE OUTPUT ROUTINE 
.S8TTL TYPE ROUTINE 

; *********************************** **************************** 

•ROUTINE T " TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 



•N0TE1 
•N0TE2 
•N0TE3 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•CALL: 

*D USING A TRAP INSTRUCTION 

• TYPE .MESADR 
•OR 

• TYPE 

• MESADR 
* 



STYPE: 



1$: 



TST8 

BPL 

HALT 

BR 

MOV 

MOV 



STPFLG 
1$ 

3$ 

RO.-(SP) 
32(SP).R0 



; .'MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



IS THERE A TERMINAL? 
BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 
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1122 


004430 


122737 


000001 


001336 


1123 


004436 


001011 






1124 


004440 


132737 


000100 


001337 


1125 


C04446 


001405 






1126 


004450 


010037 


004460 




1127 


004454 


004737 


004700 




1128 


004460 


000000 






1129 


004462 


132737 


000040 


001337 


1130 


004470 


001003 






1131 


004472 


112046 






1132 


004474 


001005 






1133 


004476 


005726 






1134 


004500 


012600 






1135 


004502 


062716 


000002 




1136 


004506 


000002 






1137 


004510 


122716 


00001 1 




1138 


004514 


001430 






1139 


004516 


122716 


000200 




1140 


004522 


001006 






1141 


004524 


005726 






1142 


004526 


104401 






1143 


004530 


001313 






1144 


004532 


105037 


004666 




1145 


004536 


000755 






1146 


004540 


004737 


004622 




1147 


004544 


123726 


001256 




1148 


004550 


001350 






1149 


004552 


013746 


001254 




1150 










1151 


004556 


105366 


000001 




1152 


004562 


002770 






1153 


004564 


004737 


004622 




1154 


004570 


105337 


004666 




1155 


004574 


000770 






1156 










1157 










1158 










1159 


004576 


112716 


000040 




1160 


004602 


004737 


004622 




1161 


004606 


132737 


000007 


004666 


1162 


004614 


001372 






1163 


004616 


005726 






1164 


004620 


000724 






1165 


004622 


105777 


174422 




1166 


004626 


100375 






1167 


004630 


116677 


000002 


174414 


1168 


004636 


122766 


000015 


000002 


1169 


004644 


001003 






1170 


004646 


105037 


004666 




1171 


004652 


000406 






1172 


004654 


122766 


000012 


000002 


1173 


004662 


001402 






1174 


004664 


105227 






1175 


004666 


000000 






1176 


004670 


000207 






1177 











TYPE ROUTINE 





CMPB 


#APTENV,$ENV 




BNE 


62$ 




BJT8 


#APTSPOOL.$F_NVM 




BEQ 


62$ 




MOV 


R0.61$ 




JSR 


PC,$ATV3 


61$: 


.WORD 


0 


62$: 


BITS 


#APTCSUP.$ENVM 




BNE 


60$ 


2$: 


MOVB 


(RO)+,-(SP) 




BNE 


4$ 




TST 


(SP) + 


60$: 


MOV 


(SP)+,RO 


3$: 


ADD 


#2.(SP) 




RTI 




4$: 


CMP8 


#HT,(SP) 




BEQ 


8$ 




CMP8 


*CRLF,(SP) 




BNE 


5$ 




TST 


(SP) + 




T YPF 






$CRLF 






CLRB 


$CHARCNT 




BR 


2$ 


5$: 


JSR 


PC.$TYPEC 


6$: 


CMP8 


$FILLC, (SP)+ 




BNE 


2$ 




MOV 


$NULL,-(SP) 


7$: 


DECS 


1CSP) 




BLT 


6$ 




JSR 


PC,$TYPEC 




DECS 


$CHARCNT 




BR 


7$ 



.•HORIZONTAL TAB PROCESSOR 

8$: MOVB #' ,(SP) 

9$: JSR PC.$TYPEC 

BITS #7.$CHARCNT 

BNE 9$ 

TST (SP)+ 

BR 2$ 

$TYPEC TSTB 8$TPS 

BPL $TYPEC 

MOVB 2(SP),a$TP8 

CMP8 #CR.2(SP) 

BNE 1$ 

CLRB $CHARCNT 

BR $TYPEX 

1$: CMP8 #LF,2(SP) 

BEQ $TYPEX 

INC8 (PC)+ 

$CHARCNT:.WORD 0 

$TYPEX: RTS PC 



PAGE 



RUNNING IN APT MODE 

NO, GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO, GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <CRLF> 

POP <CR><LF> EQUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IF NO— GO POP THE NULL OFF OF STACK 

GO TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 



REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 

GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 

LOAD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 

YES — CLEAR CHARACTER COUNT 
EXIT 

IS CHARACTER A LINE FEED? 
BRANCH IF YES 
COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 
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APT COMMUNICATIONS ROUT 



1178 










.S8TTL 


APT C( 


1179 














1180 










• • *********** 


1181 


004672 




000001 


005136 


$ATY1: 
$ATY3: 


M0V8 


1182 


004700 


112737 


000001 


005134 


M0V8 


1183 


004706 


000403 








BR 


1184 


004710 


112737 


000001 


005136 


SATY4: 


MOVB 


1185 


004716 








$ATYC: 




1186 


004716 


010046 








MOV 


1187 


004720 


010146 








MOV 


1188 


004722 


105737 


005134 






TSTB 


1189 


004726 


001450 








BEQ 


1190 


004730 


122737 


000001 


001336 




CMP8 


1191 


004736 


001031 








BNE 


1192 


004740 


132737 


000100 


001337 




BIiB 


1193 


004746 


001425 








BEQ 


1194 


004750 


017600 


000004 






MOV 


1195 


004754 


062766 


000002 


000004 




ADD 


1196 


004762 


005737 


001316 




1$: 


TST 


1197 


004766 


001375 








BNE 


1198 


004770 


010037 


001332 






MOV 


1199 


004774 


105720 






2$: 


TSTB 


1200 


004776 


001376 








BNE 


1201 


005000 


163700 


001332 






SUB 


1202 


005004 


006200 








ASR 


1203 


005006 


010037 


001334 






MOV 


1204 


005012 


012737 


000004 


001316 




MOV 


1205 


005020 


000413 








BR 


1206 


005022 


017637 


000004 


005046 


3$: 


MOV 


1207 


005030 


062766 


000002 


000004 




ADD 


1208 


005036 


013746 


1 77776 






MOV 


1209 


005042 


004737 


004410 






JSR 


1210 


005046 


000000 






4$: 


.WORD 


1211 


005050 








5$: 




1212 


005050 


105737 


005136 




10$: 


TSTB 


1213 


005054 


001416 








BEQ 


1214 


005056 


005737 


001336 






TST 


1215 


005062 


001413 








BEQ 


1216 


005064 


005737 


001316 




11$: 


TST 


1217 


005070 


001375 








BNE 


1218 


005072 


017637 


000004 


001320 




MOV 


1219 


005100 


062766 


000002 


000004 




ADD 


1220 


005106 


005237 


001316 






INC 


1221 


005112 


105037 


005136 




12$: 


CLR8 


1222 


005116 


105037 


005135 






CLRB 


1223 


005122 


105037 


005134 






CLR8 


1224 


005126 


012601 








MOV 


1225 


005130 


012600 








MOV 


1226 


005132 


000207 








RTS 


1227 


005134 


000 






$MFLG: 


• BYTE 


1228 


005135 


000 






$LFLG: 


.BYTE 


1229 


005136 


000 






$FFIG: 


.BYTE 


1230 




005140 








.EVEN 


1231 




000200 






APTSIZE-200 


1232 




000001 






APTENV=001 


1233 




000100 






APT SPOOL =100 
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MUNI CATIONS ROUTINE 

*********************************************** 

#1,$FFLG •'• T0 REPORT FATAL ERROR 

#1.$MFLG ;;T0 TYPE A MESSAGE 
$ATYC 

#1.$FFLG ;;T0 ONLY REPORT FATAL ERROR 

RO.-(SP) ;;PUSH RO ON STACK 

R1.-(SP) ;;PUSH R1 ON STACK 

$MFLG ;; SHOULD TYPE A MESSAGE? 

5$ ;;IF NOT: BR 

#APTENV,$ENV .-.OPERATING UNDER APT? 

3$ ;;IF NOT: BR 

#APTSPOOL.$ENVM ;;SHOLlD SPOOL MESSAGES? 

3$ ;;IF NOT: BR 

i4(SP).R0 ;;GET MESSAGE ADDR. 

#2,4(SP) ;;BUMP RETURN ADDR. 

$MSGTYPE ;;SEE IF DONE W/ LAST XMISSION 

1$ ;;IF NOT: WAIT 

RO.$MSGAD ;;PUT ADDR IN MAILBOX 

(ROU ;;FIND END OF MESSAGE 

2$ 

$MSGAD.RO ;;SU8 START OF MESSAGE 

RO ;;GET MESSAGE LNGTH IN WORDS 

RO,$MSGLGT ;;PUT LENGTH IN MAILBOX 

#4.$MSGTYPE ; ; TELL APT TO TAKE MSG. 

5$ 

a4(SP).4$ ;;PUT MSG ADDR IN JSR LINKAGE 
#2,4 (SP) ;;BUMP RETURN ADDRESS 

177776, -(SP) ;;PUSH 177776 ON STACK 

PC,$TYPE ;;CALL TYPE MACRO 
0 

$FFLG ;; SHOULD REPORT FATAL ERROR? 

12$ ;;IF NOT: BR 

$ENV ; .'RUNNING UNDER APT? 

12$ ;;IF NOT: BR 

$MSGTYPE ; .-FINISHED LAST MESSAGE? 

11$ ;;IF NOT: WAIT 

84(SP),$FATAL ;;GET ERROR # 

#2,4(SP) ;;BUMP RETURN ADDR. 

$MSGTYPE ; ; TELL APT TO TAKE ERROR 

$FF LG ;; CLEAR FATAL FLAG 

$LFLG ;; CLEAR LOG FLAG 

$MFLG ;; CLEAR MESSAGE FLAG 

<SP)*,R1 ;;POP STACK INTO R1 

(SPH.RO ;;POP STACK INTO RO 

PC ; .-RETURN 

0 ;;MESSG. FLAG 

0 ;;LOG FLAG 

0 ; .-FATAL FLAG 
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1234 




000040 






4 -\ T f 

1235 










1236 










1237 










1238 










1239 










1240 










4 1 / 4 

1241 










1242 










4 1 1 7 

1243 










1244 










4 1/ C 

1245 










1 1/ / 

1246 










1 1/ 7 

1247 










4 "1 / A 

1248 










4 -| / /\ 

1249 










1 1CA 










1251 










12V 










1253 


005140 


A *i 4 £ / £ 

01 1646 






1254 


A/\r 4/1 

005142 


A 4 / / a. / 

016666 


A/\/\ A A / 

000004 


AAA A A "1 

000002 


1255 


005150 


1 rt C 7 7 7 

105777 


1 7/ /\"»/\ 

1 74070 




1 It/ 


005154 


100375 








AAf 4 C/ 

005156 


1 1 77// 

117766 


1 7/ /\Z / 

1 74064 


A A A A A / 

000004 




005164 


A/ 17// 

042766 


1 77/ AA 

I 77600 


AAAAA/ 

000004 


1 ICO 

1259 


aac 1 7*i 

0051 72 


A1// 1 7 

026627 


A/^A A A / 

000004 


A A/"\ A "1 7 

000023 


1260 


AAP 1AA 

005200 


AA 1 A 1 7 

001013 






1261 


AAC Irtl 

005202 


1 AC 777 

105777 


1 7/ A7Z 

1 74036 




1 1/ 1 

1262 


AAC *WU 

005206 


1 AA77C 

100375 






i<?63 


005210 


1 1 77/ / 

1 1 7746 


1 7/ /\7 1 

1 74032 




1 264 


AAC 11 / 

005214 


A/ 1 71 / 

042716 


177/ f\f\ 

1 77600 




1265 


AAC 11 A 

005220 


022627 


A A A A ~l 4 

000021 




1 1/ / 

1266 


A/> C 11/ 

005224 


AA1 T/ / 

001366 






1 ">./ "7 

1/67 


AAr 1 1/ 

005226 


000750 






1268 


AAC IT A 

005230 


rtl/ / 17 

026627 


A/\/" A A / 

000004 


AAA 4 / A 

000140 


1 1/ r> 

1269 


AAC 17/ 

005236 


002407 






1 1 7A 

1270 


AAC *>/ A 

005240 


A **w y 17 

026627 


A A A A A / 

000004 


000175 


1 171 

1271 


A/\r 1/ d. 

005246 


A A ^ <\ A 7 

003003 






* 171 

1272 


005250 


A / 17^ y 

042766 


A A A A / A 

000040 


AAAAA / 

000004 


1273 


AA.r *ir / 

005256 


A/\A A A 1 

000002 
















1275 










1276 










1277 










1278 










1279 










1 IDA 

1280 










1281 


AAC *"W a 

005260 


010346 






Icoc 










1283 


005264 


012703 


005514 




1284 


005270 


022703 


005523 




1285 


005274 


101456 




1286 


005276 


104402 






1287 


005300 


112613 






1288 


005302 


122713 


0001 77 




1289 


005306 


001022 







N 3 

»T COMMUNICATIONS ROUTINE 
APTCSUP=040 



PAGE: 0059C 



,S8TTL TTY INPUT ROUTINE 



.ENABL LS8 
.DSABL LS8 



•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
•CALL: 

• RDCHR 

• RETURN HERE 



INPLT A SINGLE CHARACTER FROM THF T T V 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OF f 



SRDCHR: MOV 
MOV 

1$: TST8 
BPL 
M0VB 
BIC 
CMP 
BNE 

2$: TSTB 
BPL 
M0V8 
BIC 
CMP 
BNE 
BR 

3$: CMP 
BLT 
CMP 
BGT 
BIC 

4$: RTJ 
■ ************ 

•THIS ROUTINE 
•CALL: 

* RDL IN 

* RETURN 
* 



$RDLIN: MOV 

CLR 



(SP).-(SP) 

4(SP).2(SP) 

3STKS 

1$ 

a$TKB,4(SP) 
*"C<1 77> .4 <SP) 
4<SP),#23 
3$ 

a$TKS 
2$ 

aSTKB.-(SP) 

# A C177.(SP) 

(SP)*.#21 

2$ 

1$ 

4(SP),#140 
AS 

4<SP).*175 
4$ 

#40.4(SP) 



PUSH DOWN THE PC 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ THE TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL -S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BIT ASCII 

JS IT A CONTROL-Q? 

IF NOT DISCARD IT 

YES. RESUME 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 

MAKE IT UPPER CASE 

GO BACK TO USER 



*************************************************** 



WILL INPUT A STRING FROM THE TTY 



IS: 
2$: 



10$: 



MOV 

CMP 

BL0S 

RDCHR 

M0V8 

CMP8 

BNE 



HERE 



R3.-(SP) 
-<SP) 

#STTYIN.R3 

#$TTY1N+7.R3 

4$ 

(SP)*.(R3) 
#1 77. (R3) 
5S 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STAC 
TERMINATOR WILL BE A BYTE OF ALL 0'S 

SAVE R3 

CLEAR THE RUB0UT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
BR IF NO 
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B 4 



TTY INPUT ROUTINE 



PAGE: 00WC1 



1290 


005310 


005716 






1291 


005312 


001007 






1292 


005314 


1 1 2737 


000134 


005512 


■4 AA7 

1293 


005322 


104401 


005512 




1 "^a i 

1294 


AA C 7*^Z 

005326 


A4 A7 1 y 

012716 


4 ~»-"7 

u7777 




1295 


AAC 77^ 

005332 


A A C 7A7 

005303 






12% 


A A c 77 > 

005334 


020327 


AAC C 1 / 

005514 




1297 


005340 


1 A 7 / 7/ 

103434 






1298 


A A C 7 / A 

005342 


111337 


AAC C 4 O 

005512 

AAC f 1"l 

005512 




1 aaa. 

1299 


005346 


1 A/ / A1 

104401 




4 7AA 

1300 


005352 


AAA 7 / Z 

000746 






1301 


AAC 7 C / 

005354 


AAC 71 / 

005716 






1302 


AAC7C/ 

005356 


AA1 / A/ 

001406 






4 TAT 

1303 


AAC7/A 

005360 


1 1 1777 


AAA1 7/ 

0001 34 


AACC1 1 

005512 


1 304 


AAC7// 

005366 


1 A/ / A1 

104401 


AAC C 1 1 

005512 




4 TAC 

1 305 


A A P7T1 

005372 


AACA1 Z 

005016 






1306 


005374 


1 1171 7 

122713 


A A A A*"i C 

000025 




1 7A7 

1 307 


AAC/ AA 

005400 


AA1 AA7 

001003 






1308 


AAC / A 1 

005402 


1 A/ / A1 

104401 


AAC C 17 

005523 




1 7AO 

1309 


005406 


000726 






H1A 

1310 


AAC / 1 A 

005410 


1 1171 7 

122713 


AAAA*"» 1 

000022 




1311 


AAC / 1 / 

005414 


AA1 A1 1 

00101 1 






1312 


AAC / 1/ 

005416 


1 AC A1 7 

105013 






1 71 7 

1313 


AAC / 1A 

005420 


1 A/ / A1 

10440 1 


AA1 717 

001313 




-1 71 / 
1314 


AAC /I/ 

005424 


1 A/ / A1 

r 04401 


AAC C 1 / 

005514 




1 V 1 C 

13 lb 


aac / 7A 

005430 


AAA71 7 

00071 7 






1 316 


AAC / 7*1 

005432 


1 A/ / A1 

l 04401 


AA1 71 1 

001312 




1 7 1 "V 


AAC/ TaI 

005436 


AAA71 1 

00071 2 






1 71 O 

1318 


AAC / / A 

005440 


111 777 

1 11 337 


A A C C 1 1 

005512 




1 71 A 

1319 


AAC/ / / 

005444 


1 A/ / A1 

1 04401 


AAC C 1 1 

005512 




1 71A 

1320 


AAC / CA 

005450 


1 22725 


A A A A 1 C 

000015 




1 7^1 

1321 


AAC/ C/ 

005454 


AA1 7AC 

001305 






1322 


AAC / C/ 

005456 


1 AC A/ 7 

105063 


1 77777 

1 77777 




1 TOT 

1323 


AAC/ Z 1 

005462 


1 A/ / A1 

104401 


AA1 71/ 

001314 




132s 


AAC / 

005466 


005726 






1 7*»C 

1325 


AAC / 7 A 

005470 


A1 AZ A7 

01 2603 






1 71^ 

1326 


AAC / 71 

005472 


A4 1 Z / Z 

01 1646 






1327 


AAC/ 7/ 

0054/% 


A1/ /// 

016666 


rtAAAA/ 

000004 


AAA AA *"> 

000002 


1 710 

1328 


AAC CA*l 

005502 


A1 1 7/ Z 

012766 


A AC £" 1 / 

005514 


A AAA A / 

300004 


1 7AA 

1329 


AAC C 1 A 

005510 


A AAA AO 

000002 






1 7 7A 

1330 


AACC 1 1 

005512 


AAA 

000 






1 771 

1 331 


AACC1 7 

005513 


AAA 

000 






1 771 

1332 


005514 


AAAAA7 

000007 






1 777 

1333 


AACC")7 

005523 


1 7/ 

136 


A A Z CIC 

006525 


A A A A 1 O 

00001 2 


-i 77/ 


AAC C7A 

005530 


A/ 7C7Z 

043536 


A A C A 1 C 

005015 


000 


1 77f 

1335 


AAC C7 C 

005535 


At C 

015 


AC4 M *1 A 

051412 


C51127 


1 7 7/ 

1 336 


A A CC/ *1 

005542 


A7z / / A 

036440 


AAA A J A 

000040 




1 777 

1337 


A A C C / 4 

005546 


y\ ""4 A A / A 

020040 


042516 


020127 


1 770 

1338 


AAC C C / 

005554 


A"lAA7f 

020075 


000 




1339 




A A C C Z A 

005560 






1 7Z.fl 
1 3*»U 










1341 










1342 










1343 










1344 










1345 













TST 


(SP) 


;;IS THIS THE FIRST RUBOUT? 




BNE 


6$ 


;;8R IF NO 




M0V8 


#' \,9$ 


;;TYPE A BACK SLASH 




TYPE 


A* 

,9$ 






MOV 


#-1 , (SP) 


;;SET THE RUBOUT KEY 


6$: 


DEC 


R3 


;;8ACKUP BY ONE 




CMP 


n7 u»ttw r ft 1 

R3.#$TTYIN 


;; STACK EMPTY? 




BL0 


4$ 


;;8R IF YES 




M0V8 


(R3) .9$ 


; .-SETUP TO TYPEOUT THE DELETED CHAR. 




TYPE 


A* 

,9$ 


;;G0 TYPE 




BR 


1* 

2$ 


;;G0 READ ANOTHER CHAR. 


5$: 


TST 


(SP) 


; .-RUBOUT KEY SET? 




A C A 

BEQ 


7* 


A A » f ft lA 

;;BR IF NO 




ma v m 

M0V8 


.-.-TYPE A BACK SLASH 




T w nr 

TYPE 


AC 

,9$ 






CLR 


(SP) 


.-.'CLEAR THE RUBOUT KEY 


7# . 


CMP8 


MIC /q?\ 


. t f rutnitrTcn a /* t a i lit 

..IS CHARACTER A CTRL U? 




Aft ir 

BNE 


8$ 


;;8R IF NO 




TYPE 


# AklTl II 


.-.-TYPE A CONTROL u 




AA 

BR 


1 e 
1 5 


;;G0 START OVER 


8$: 


rum 

CMPB 


Jill /n7\ 

#22. (R3) 


;;IS CHARACTER A " A R"? 




Aft IC 

BNE 


7* 

3$ 


An itin 1 t r ft ia 

.-.'BRANCH IF NO 




CLR8 


/ 07 \ 
(R3) 


_ r» » CAA Tl IT ^llAAAATCA 

;; CLEAR THE CHARACTER 
.-.TYPE A "CR" & "Lf" 




TYPE 


.SCRLF 




T W AC 

TYPE 


A* T T V T ft 1 

.STTYIN 


. T" W AC Tl if T ft mi IT" f T A T ft 1 A 

.-.TYPE THE INPUT STRING 




AA 

BR 


2* 


. _ /*A A |A A ft ftA Tl J C A rill TTCA 

;;G0 PICKUP ANOTHER CHACTER 
.".'TYPE A ? 


s»: 


t unc 

TYPE 


»Al IC C 




AA 

BR 


1 » 


Al CAA Tl IT AllCCCA ft ft lA I A/~\A 

;; CLEAR THE BUFFER AND LOOP 


35: 


UAI /£■> 

MOVB 

T W AC 

TYPE 


/ A 7 \ A#r 

(R3) ,9* 
,9$ 


. _ C* A 1 I A Tl .r CIIAAAATCA 

;;ECH0 THE CHARACTER 




CMPB 


#15. (R3)+ 


f- 1 ir f*is r aa nr ti mi i 

;; CHECK FOR RETURN 




Aft «C 

BNE 


2$ 


■ AAA TC imf ACTi lAfti 

; ; L OOP IF NOT RETURN 




I AA 

CLRB 


1 / A7 1 

-1 (R3) 


PI CAA AC Tl lAft 1 /Tl lA 1 C \ 

;; CLEAR RETURN (THE 15) 




t unr 

TYPE 


#*LF 


. . TWAC A 1 T ft »r CCCA 

;;TYPE A LINE FEED 




TST 


(5P) + 


Ci C A ft I Al mAJ i T i/r u r r~i nftft tiiC c T ft r is 

;; CLEAN RUBOUT KEY FROM THE STACK 




MOV 


/ C A \ » a 7 

(SP)+,R3 


ACCTAAC A7 

; .-RESTORE R3 




MOV 


(SP) .-(SP) 

/ / rn\ a / f* a \ 

4(SP) ,2(SP) 


• An II IAT Tl IC AT* Al/ ft A lA r 1 IT AfSnACCC Af T*iC 

.'.'ADJUST THE STACK AND PUT ADDRESS OF THE 




MOV 


FIRST ASCII CHARACTER ON IT 




MOV 


#STTYIN.4(SP) 






DT I 
Kl J 




■ > DC Tl LDM 


9$: 


•BYTE 


0 


;; STORAGE FOR ASCII CHAR. TO TYPE 




.BYTE 


0 


;; TERMINATOR 


STTYIN: 


.8LK8 


7 


;. -RESERVE 7 BYTES FOR TTY INPUT 
;; CONTROL *\J" 
;; CONTROL "G" 


SCNTLU: 


.ASCJZ 


/ A U/05><12> 


SCNTLG: 


.ASCIZ 


/ A G/<15><12> 



SMSWR: .ASCJZ <15><12>/SUR = / 
SMNEW: .ASCIZ / NEW = / 



.EVEN 
.S8TTL 



READ AN OCTAL NUMBER FROM THE TTY 



•ft************************************************************** 
* THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
•CHANGE IT TO BINARY. 

•THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 



J 



005720 010546 

005722 016605 

005726 012537 

005732 012537 

005736 012537 



000060 
000067 
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1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 



005560 
005562 
005570 
005572 
005574 
005576 
005600 
005602 
005606 
005610 
005612 
005614 
005616 
005622 
005624 
005630 
005632 
005634 
005636 
005640 
005642 
005644 
005646 
005652 
005654 
005656 
005660 
005664 
005670 
005672 
005674 
005676 
005700 
005702 
005704 
005706 
005710 
005714 
005716 



011646 
016666 
010046 
010146 
010246 
104403 
012600 
010037 
005001 
005002 
112046 
001420 
122716 
003026 
122716 
002423 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000756 
005726 
010166 
010237 
012602 
012601 
012600 
000002 
005726 
105010 
104401 
000000 
104401 
000730 
000000 



C 4 

READ AN OCTAL NUMBER FROM THE TTY 

•OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
♦FOLLOWED BV A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
•THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 



PAGE: 0041 Ci 



•CALL: 



RDOCT 

RETURN HERE 



000004 000002 



005706 



READ AN OCTAL NUMBER 

LOW ORDER BITS ARE ON TOP OF THE STACK 

HIGH ORDER BITS ARE IN SHIOCT 



1 77770 



000012 
005716 



001312 



$RD0CT: 


MOV 


(SP) ,-(3P) 
4(SP) .2(SP) 


.••PROVIDE SPACE FOR THE 




MOV 


• -INPUT NUMBER 




MOV 


RO.-(SP) 


• 'PUSH RO ON STACK 




MOV 


R1 ,-(SP) 


;;PUSH R1 ON STACK 




MOV 


R2,-(SP) 


;;PUSH R2 ON STACK 


1$: 


RDLIN 




; .-READ AN ASCIZ LINE 




MOV 


(SP)+,RO 


;;GET ADDRESS OF 1ST CHARACTER 




MOV 


R0,5$ 


;;AND SAVE IT 




CLR 


R1 


;; CLEAR DATA WORD 




CLR 


R2 




2$: 


MOVB 


(RO)+,-(SP) 


; .-PICKUP THIS CHARACTER 




BEQ 


3$ 


;;IF ZERO GET OUT 




CMP8 


#'0,(SP) 


;;MAKE SURE THIS CHARACTER 




BGT 


4$ 


;;IS AN OCTAL DIGIT 




CMP8 


#'7.(SP) 






BLT 


4$ 






ASL 


R1 


; ; *2 




ROL 


R2 






ASL 


R1 


;;*4 




ROL 


R2 






ASL 


R1 


; ; *8 




ROL 


R2 

# A C7.(SP) 






BIC 


; .-STRIP THE ASCII JUNK 




ADD 


<SP)+.R1 


;;ADD IN THIS DIGIT 




BR 


2$ 


;;LOOP 


3$: 


TST 


(SP) + 


;; CLEAN TERMINATOR FROM STACK 




MOV 


R1,12(SP) 


.-.-SAVE THE RESULT 




MOV 


R2,SHI0CT 






MOV 


(SP)+.R2 


;;POP STACK INTO R2 




MOV 


(SP)+.R1 


; ;POP STACK INTO R1 




MOV 


(SP)+.RO 


;;POP STACK INTO RO 




RTI 




* 'RETURN 


4$: 


TST 


(SP) + 


';; CLEAN PARTIAL FROM STACK 




CLR8 


(RO) 


;;SET A TERMINATOR 




TYPE 




;;TYPE UP THRU THE BAD CHAR. 


5$: 


.WORD 


0 




TYPE 


,$QUES 


;;•'?" "CR" & 'IF" 




BR 


1$ 


• • TRY AGAIN 


SHIOCT: 


.WORD 


0 


;;HIGH ORDER BITS GO HERE 



INPUT OCTAL NUMBER ROUTINE 



000002 
005764 
006044 
006046 



$ INPUT: MOV 
MOV 
MOV 
MOV 
MOV 



R5.-(SP) 

2(SP),R5 

(R5)+,WHAT 

(R5)+.L0LIM 

(R5)*,HILIM 



SAVE REGISTER R5. 

GET FIRST PARAMETER ADDRESS. 

GET MESSAGE ADDRESS. 

GET LOW LIMIT FOR THE # 

GET HIGH LIMIT FOP THE #. 
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nnc 7/ o 




UvOUDU 


1 LC\\ 


VVJfSO 


1 1 77 




i i.r\j. 


vvDOcT 


1 1 3^17 


nn^.n^7 


1 L(\C 


nn?7<A 
UvD» JO 


U IUjOO 


nnnnno 
UUUUU*: 




nn^7A.o 


1 iv / m 
I UssU I 




i mjf 




(VWWI 
UwwU 




I svo 


/VK7AA 
UvOf OO 


1 (\LL(\L 
I UsSUs 




i*»uy 


nn^77n 


n31 AX7 


nn^nz.A 


iz.in 
is iv 


\J\Jjf f S 


nn7nn7 




1£1 1 

i s i i 


rtn^77A 


n?i A17 

vc lOjf 


r\C\f*C\LL 

uuou**** 


Isle 


UvOUvc 


Uvcvvj 




i s i j 




i nz.z.m 


nm ii 9 


IS IS 


nnAmn 

VVOU IV 


in/ / ni 

I VSSU 1 


nni *.1 7 

VV I J I J 


1Z.1 5 


VVOv 1 H 


nnn7AP 

vvvr Oc 




1£1 A 
It IO 


nnAm a 


v I jf\JJ 


nn^nsn 

vvOvjU 


1£1 7 

IS 1 f 


wDUct 


m 1 a?s 

V 1 1 Oc 7 




1Z.1R 

H IO 


nn/.n?A 

VVOVCS 


UOc r 1 O 


nnnnn? 




UwvjU 




nnAn'Ji 


i£?n 




nni x75 

VV 1 ji c 




I He 1 


nnAniA 


nn«»7?A 

Uuj r t-O 




1 SCC 


WDUHU 


V I COUJ 




1 HcJ 


(WfV.? 
UuuUtc 


UWWc 




I HcS 


VvOUSS 


nnnnnn 








nnnnnn 

vvvvvv 








nnnnnn 

vvVVvv 




I Sc l 


VVOv Jc 


nnn 




I ScO 




nnn 

VVV 




1Z.P0 








1 A*.n 

IHJU 








m j \ 








1 LX2 

1 SJt 








1Z.X7 

1 HJJ 


nnAn^z. 

UvOvjS 


m 771 a 


nm ll o 

\J\I I HH£ 


1 /■»/ 
1 S JS 


nnA/v.n 

VVOVOU 


nnt;n?7 


nni a/. a 

VV 1 HHH 


I 4JJ 


VVOVOS 


nnnnn? 




















I S JO 
















1 SSv 


vvOVOO 


U I OO J f 


nnnnnz. 


1Z.A1 

I SS I 








I sSc 








1 SS j 








1 LLL 
I SSS 


vvOvY s 


m n^T7 


nm 57Z. 


1Z.Z. 1 ; 

1 HMJ 


no>inn 

VVO 1 vv 


ninAX7 

U I v*« j f 


nm ?7P 


1 H*tO 


VVO 1 vs 


nin^X7 

V 1 VJJ ( 


nni ?7n 


1Z.Z.7 


vuo i i v 


V I \JCjf 


nm paa 

vv I cOO 


I SSO 


UvU 1 1 S 


mm X7 


nni ot*L 

vv 1 COS 


1449 


006120 


010037 


001 262 


1450 


006124 


000002 




1451 








1452 








K53 








1454 


006126 


013700 


001262 


1455 


006132 


013701 


001264 


1456 


006136 


013702 


001266 


1457 


006142 


013703 


001270 



D 4 

READ AN OCTAL NUMBER FROM THE TTY 



PAGE: 004 2Ci 





MOW 




OC 1 MUUnCoo Ur INDUr rCK 




Mnv/R 


lnj/ T ,LvJOI lo , 


OC 1 LUWlMorv Olio. 

GET * OF #'S TO BE GENERATED 




nuvo 


/DCU ADDTKIT 




MOW 

rrv v 


rt J , C \ Or / , 


CAWF TUF DPTIIDM APinDCCC 
oMVC 1 Me Mt IUKIM AUUKtoo. 


TMI D1 ■ 


TVDF 




• TYPE THE MESSAGE. 


Wrln 1 . 


unpn 
RhnrT 

rvUUU 1 


n ' 






TMP 

L ' If 


(SP).HILIM ! 


• i c; it iw ur^u i tmit"? 
1 o li ini ni on L ini 1 : 




DO 1 




• RPAKiri-l I F Kin 




r MP 


V jr / , LUL i I 1 


■ fT MnRF TUAM 1 DU 1 TMTT 
lo 11 rRJnC IrWi L Uw Llrll 1 . 




DOC 


39 


• RRANiri-l I c VFC 

• TVPF " "> " 

, 1 1 "L . 


C9 • 


1 » r C 






TYPF 

i ire 




, I ire NinZ/SLr s 




pip 

on 


TMI pi 
1 nlLr 1 


- 


MOV 


UHFRF RS 


'• G£T RIIFFFR ADDRFCC 
t OC 1 DUr r Cn MUUnC OO. 




MOW 

rrVV 


(CP) (RS)-f 

w C i V Or / 


• QAl/F Ti-IF M TM RT^MT PI AfF 
, oMVC 1 nc n ivt nJUnl rL^LC . 




ADD 


■ NFVT ^FOIIFMTTAI MIMRFR 
, niCA i ocwucniiiML rvunocn. 




VC LU 




■ rmiMT rv 1 

, L Uvnl 1 O T 1 . 






4$ 


- BRANCH 7F NOT DftNF 




TST 


(SP) + 


; POP THE STACK POINTER. 




MOV 


(SP)+,R5 


; POP THE REG. 5 




RTI 






L0LIM: 


.WORD 


0 




HILIM: 


.WORD 


0 




WHERE : 


.WORD 


0 




L0BITS: 


.BYTE 


0 




ADRCNT: 


.BYTE 


0 





ADVANCE TO NEXT TEST HANDLER 



.ADVANCE: 



CLR 
RTI 



MOV 

LOCK 



NEXT,(SP> 



; CRUNCH STACK WITH ADDRESSOF SC 
RESET TIGHT LOOP ADDRESS 
CHECK TO SEE IF OLD TEST GETS REPEATED 



;SAVE PC OF TEST THAT FAILED AND R0-R5 
. SAV05 : MOV 4(SP),SAVPC ;SAVE R7 (PC) 



;SAVE R0-R5 



SV05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



R5,$REG5 
R4,$REG4 
R3.SREG3 
R2,$REG2 
R1.SREG1 
RO.SREGO 



.•RESTORE R0-R5 



.RES05: MOV 
MOV 
MOV 
MOV 



$REG0,R0 
$REG1.R1 
$REG2,R2 
SRE63.R3 



SAVE R5 
SAVE R4 
SAVE R3 
SAVE R2 
SAVE R1 
SAVE R0 
LEAVE. 



RESTORE R0 
RESTORE R1 
RESTORE R2 
RESTORE R3 
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READ AN OCTAL 


NUMBER 


FROM THE TTY 




1458 


006146 


013704 


001272 






MOV 


$REG4,R4 .-RESTORE R4 




1459 


006152 


013705 


001274 






MOV 


SREG5.R5 .-RESTORE R5 




1460 


006156 


000002 








RTI 


.-LEAVE 




1461 


















1462 










» 


; CONVERT OCTAL NUMBER TO ASCJI AND OUTPUT TO TELEPRINTER 




1463 










s 


# 






1464 










0 




,$CRLF 




1465 


006160 


104401 


001313 




.CONVR 


: TYPE 




1466 


006164 


010046 






. CNVRT 


: MOV 


RO.-(SP) 




1467 


006166 


010146 








MOV 


R1 ,-(SP) 




1468 


006170 


010346 








MOV 


R3,-(SP) 




1469 


006172 


010446 








MOV 


R4.-(SP) 




1470 


006174 


010546 








MOV 


R5,-(SP) 




1471 


006176 


01 7601 


000012 






MOV 


312(SP) ,R1 




1472 


006202 


062766 


000002 


000012 




ADD 


#2.12(SP) 




1473 


006210 


012137 


006402 






MOV 


(RD + .WRDCNT 




H74 


006214 


112137 


006404 




1$: 


M0V8 


(RD + .CHRCNT 




1475 


006220 


112137 


006405 






MOVB 


(R1)+, SPACNT 




1476 


006224 


013137 


006406 






MOV 


a(R1)+,BJNURD 




1477 


006230 


122737 


000003 


006404 




CMPB 


#3.CHRCNT 




1478 


006236 


001003 








8NE 


2S 




1479 


006240 


042737 


1 77400 


006406 




BIC 


#1 77400 ,BINWRD 




1480 


006246 


013704 


006406 




2$: 


MOV 


BINWRD,R4 




1481 


006252 


113705 


006404 






MOVB 


CHRCNT,R5 




1482 


006256 


012700 


011122 






MOV 


#TEMP.RO 




1483 


006262 


010403 






3$: 


MOV 


R4,R3 




1484 


006264 


042703 


1 77770 






BIC 


#1 77770. R3 




1485 


006270 


062703 


000060 






ADD 


#060, R3 




1486 


006274 


110320 








MOVB 


R3.(R0)+ 




1487 


006276 


000241 








CLC 






1488 


006300 


006004 








ROR 


R4 




1489 


006302 


000241 








CLC 






1490 


006304 


006004 








ROR 


R4 




1491 


006306 


000241 








CLC 






1492 


006310 


006004 








ROR 


R4 




1493 


00631? 


005305 








DEC 


R5 




1494 


00631m 


001362 








BNE 


3$ 




H95 


006316 


012703 


011164 






MOV 


#MDATA,R3 




1496 


006322 


114023 






4$: 


MOVB 


-(RO) , (R3)+ 




1497 


006324 


105337 


006404 






DECS 


CHRCNT 




1498 


006330 


001374 








BNE 


4$ 




1499 


C06332 


105737 


006405 






TSTB 


SPACNT 




1500 


006336 


001405 








BEQ 


6$ 




1501 


006340 


112723 


000040 




5$: 


MOVB 


#040,(R3)+ 




1502 


006344 


105337 


006405 






DECS 


SPACNT 




1503 


006350 


001373 








BNE 


5$ 




1504 


006352 


105013 






6$: 


CLR8 


(R3) 




1505 


006354 


104401 


011164 






TYPE 


,MDATA 




1506 


006360 


005337 


006402 






DEC 


WRDCNT 




1507 


006364 


001313 








BNE 


1$ 




1508 


006366 


012605 








MOV 


(SP)+,R5 




1509 


006370 


012604 








MOV 


(SP)+.R4 




1510 


006372 


012603 








MOV 


(SP)+,R3 




1 D 1 1 




U ItOU l 








MOV 


(SP)+,R1 




1512 


006376 


012600 








MOV 


(SP)+.RO 




1513 


006400 


000002 








RTI 
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15H 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 



006402 
006404 

006406 



000000 
000000 
006405 
000000 



006432 
006434 
006442 



006444 
006446 



006450 
006452 
006454 
006456 
006460 
006462 
006464 
006466 
006470 
006472 
006474 



F 4 

READ AN OCTAL NUMBER FROM THE TTY 

WRDCNT: 0 
CHRCNT: 0 
SPACNT=CHRCNT+1 
B I NURD: 0 

TRAP DISPATCH SERVICE 
ARGUMENT OF TRAP IS EXTRACTED 
AND USED AS OFFSET TO OBTAIN POINTER 
TO SELECTED SUBROUTINE 

.SBTTl TRAP DECODER 

•;*************************************************************** 

;*THIS ROUTINE WILL PICKUP THE LOWER F_YTE OF THE 'TRAP" INSTRUCTION 
; *AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 

SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 



PAGE: 0044 Ci 



006410 


010046 




STRAP: MOV 


RO,-(SP) 


006412 


016600 


000002 


MOV 


2(SP).R0 


006416 


005740 




TST 


-(RO) 


006420 


111000 




M0V8 


(RO).RO 


006422 


006300 




ASL 


RO 


006424 


016000 


006444 


MOV 


$TRPAD(RO),RO 


006430 


000200 




RTS 


RO 



;;THIS IS USE TO HANDLE THE 'XjETPRI" MACRO 



011646 
016666 
000002 



000004 000002 



STRAP2: MOV 
MCV 
RTI 



(SP),-(SP) 
4(SP).2(SP) 



;M0VE THE PC DOWN 
;MOVE THE PSW DOWN 
.•RESTORE THE PSW 



.SBTTL TRAP TABLE 



;*THJS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ' 7RAP" INSTRUCTION. 



006432 
004410 



005140 
005260 
005560 
004360 
006066 
006126 
007356 
007326 
007374 
007442 
007506 



ROUTINE 

STRPAD: .WORD 
STYPE 



STRAP2 
;;CALL=TYPE 



TRAP+1 (104401) TTY TYPEOUT ROUTINE 



SRDCHR ; 
$RDLIN ; 
SRDOCT ; 
.SC0P1 ; 
. SAV05 ; 
.RES05 ; 
.MSTCLR ; 
•DELAY ; 
.ROMCLK ; 
.DATACLK 
.TIMER ; 



CALL=RDCHR 

CALL=RDL IN 

CALL=RDOCT 

CALL=SC0P1 

CALL=SAV05 

CALL=RES05 

CALL=MSTCLft 

CALL=DELAY 

CALL=ROMCLK 

;;CALL-- 

;CALL=TIMER 



TRAP*2( 104402) 
TRAP*3( 104403) 
TRAP*4( 104404) 
TRAP*5( 104405) 
TRAP+6( 104406) 
TRAP*7( 104407) 



TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
CALL TO LOOP ON CURRENT DAI A HAN 
CALL TO REGISTER SAVE ROUTINE 
CALL TO REGISTER RESTORE ROUTINE 
TRAP+1 0(104410) CALL TO ISSUE A MASTER CLEAR 
TRAP+1 1(104411) CALL TO DELAY 
TRAP+12H 04412) CALL TO CLOCK ROM ONCE 
DATACLK TRAP+13H 04413) CALL TO CLOCK DATA 
TRAP+14H04414) CALL TO DELAY A CLOCK TICK 



G 4 
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1570 


006476 


005720 




$INPUT 


;;CALL=INPUT TRAP+15C104415) CALL TO OCTAL # INPUT ROUTINE 


1571 


006500 


006160 




.CONVRT 


;;CALL=CONVRT TRAP+16C104416) CALL TO 


1572 


006502 


006164 




. CNVRT 


;;CALL=CNVRT TRAP+1 7(10441 7) CALL TO 


1573 
1574 
1575 
1576 


006504 


006054 




.ADVANCE ; ; CALL=ADVANCE TRAP+20C 104420) CALL TO ADVANCE TO NEXT 

* 








*;************************************************************** 


1577 








.-ERROR HANDLER 




1578 








* 






1579 














1580 


006506 


004737 


011226 


SERR0R: JSR 


PCCKSWR 


CHECK FCR SOFT SWR 


1581 


006512 


032777 


010000 172520 


BIT 


#SWl2,asWR 


BELL ON ERROR? 


1582 


006520 


001406 




BE0 


XBX 


BR IF NO BELL 


1583 


006522 


105777 


172522 


TST8 


3STPS 


TTY READY. 

DON T WAIT IF TTY NOT READY. 


1584 


006526 


100003 




BPL 


XBX 


1585 


006530 


112777 


^X ^\ >X *\ A A» 4 ^* *X #"~ / 

000207 172514 


MOVB 


#207 a$TP8 


PUSH A BELL AT THE TTY. 


1586 


006536 


032777 


020000 172474 


X8X : BI T 


#SWl3.aSWR 


DELETE ERROR PRINT OUT? 


1587 


006544 


001107 




BNE 


HALTS 


8R IF NO PRINT OUT WANTED. 


1588 


006546 


021637 


001216 


CMP 


(SP).SERRPC 


WAS THIS ERROR FOUND LAST TIME? 


1589 


006552 


001404 




BE0 


1$ 


BR IF YES 


1590 


006554 


011637 


001216 


MOV 


(SP).SERRPC 


•RECORD BEING HERE 


1591 


006560 


1 05037 


001 203 


CLR8 


SERFLG 


■PREPARE HEADER 


1592 


006564 


104406 




1$: SAV05 




a \ / #— a . ■ rxi"\ ^x f #x T t rx 

•SAVE ALL PROC REGISTERS 


1593 


006566 


011605 




MOV 


(SP),R5 \ 


•GET THE PC OF ERROR 


1594 


006570 


162705 


000002 


SUB 


#2,R§ 


GET ADDRESS OF TRAP CALL 


1595 


006574 


r\ 4 4 c~ r\ / 

011504 




MOV 


(R5),R4 


■GET ERROH INSTRUCTION 


1596 


006576 


110437 


001214 


M0V8 


R4,$ITEMB 


^••^rx** r~rxrx^x#x a< r /\n iht ■ ■ a a .rv ■ * m i r~ 

; COPY ERROR # FOR APT HANDLING 


1597 


006602 


006304 




ASL 


R4 


;MULT BY TWO 


1598 


006604 


061504 




ADD 


(R5).R4 


"DOUBLE IT 


1599 


006606 


006304 




ASL 


R4 


■MULT AGAIN 


1600 


006610 


042704 


177001 


BJC 


#1 77001 ,R4 


CLEAR JUNK 


1601 


006614 


062704 


001512 


ADD 


#$ERRTB,R4 


•GET POINTER 


1602 


006620 


012437 


006734 


MOV 


CR4)-*-. ERRMSG 


•GET ERROR MESSAGE 


1603 


006624 


012437 


006746 


MOV 


<R4)+.DATAHD 


A** tf* PX A a | .A. a A A - AA. 

;GET DATA HEADRER 


1604 


006630 


011437 


006760 


MOV 


(R4).DATABP 


•GET DATA TABLE 


1605 


006634 


105737 


001203 


TST8 


SERFLG 


•TYPE HEADREER 


1606 


006640 


001403 




BEO 


TYPMSG 


;BR IF YES 


1607 


006642 


005737 


006760 


TST 


DATABP 


A A AA> A A A a * a AAA • »— A . . A AAj AA aa 

;D0ES DATA TABLE EXIST? 


1608 


006646 


001040 




BNE 


TYPDAT 


BR IF YES. 


1609 


006650 


104401 


001313 


TYPMSG: TYPE 


,SCRLF 




1610 


006654 


104401 


001313 


Tunc 

TYPE 


,*CRLF 




1611 


006660 


005737 


001444 


TST 


LOCK 




1612 


006664 


/X yX 4 / A aa. 

001402 




BEQ 


1$ 




4 £ 4 T 

1613 


006666 


104401 


010011 


TYPE 


.MASTEK 




1614 


006672 


104401 


007777 


1$: TYPE 


.MTSTN 




1615 


006676 


104417 


007114 


CNVRT 


.XTSTN 


•SHOW IT 


1616 


006702 


104401 


010066 


TYPE 


.MERRPC 


TYPE PC. 


4 .A* 4 ^ 

1617 


006706 


104417 


007106 


CNVRT 


.ERTABO 


•SHOW IT 


IO lo 




1 (V. / A1 


W 1 J 1 J 


TYPE 


,$CRLF 


GIVE A CR/LF 


1619 


006716 


112737 


\77777 001203 


M0V8 


#-1,$ERFLG 


NO MORE HEADER UNLESS NO DATA TABLE . 


1620 


006724 


005737 


006734 


TST 


ERRMSG 


IS THERE AN ERROR MESSAGE? 


1621 


006730 


001402 




BEQ 


WRKO.FM 


8R IF NO. 


1622 


006732 


104401 




TYPE 




TYPE 


1623 


006734 


000000 




ERRMSG: 0 




ERROR MESSAGE 


1624 


006736 






WRKO.FM: 






1625 


006736 


005737 


006746 


TST 


DATAHD '. 


DATA HEADER? 
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1626 


006742 


001402 






1627 


006744 


104401 






1628 


006746 


000000 






1629 


006750 


005737 


006760 




1630 


006754 


001402 






1631 


006756 


104416 






1632 


006760 


000000 






1633 


006762 


104407 






1634 


006764 


122737 


A £^ £^ A A 4 

000001 


001 336 


1635 


006772 


AA4 A A 

001007 






4 * *» £ 

1636 


006774 


113737 


001214 


007006 


4 £ "» ~» 

1637 


A A ^ » A A A 

007002 


004737 


004710 




1638 


007006 


A A A A A A 

000000 






1639 


007010 


a. /\a. w 

000777 






1640 


007012 


022737 


A A / A 1 A 

004070 


AAAA^ A 

000042 


1641 


007020 


001403 






1642 


007022 


005777 


172212 




1643 


a,ai a Ay 

007026 


4 AAAAT 

100005 






1644 


007030 


010046 






1645 


007032 


016600 


A A A A A A 

000002 




1646 


A A TAT y 

007036 


000000 






1647 


007040 


rt4 A y Art 

012600 






1648 


007042 


AAC ^71 

005237 


A A 4 ~\ 4 A 

001212 




1649 


a a -» a / y 

007046 


032777 


A A A / AA 

000400 


•1 7^ 4 y / 

1 72164 


1650 


aaia ^ / 

007054 


AA4 A/M 

001007 






1651 


007056 


/\7* w 

032777 


rtrt^rtrtA 

002000 


172154 


1652 


007064 


001407 






1 ^ t 7? 

1653 


007066 


A1 7771 

013737 


A A 4 / / A 

001442 


A A 4 AA y 

001206 


1654 


AAT A*7/ 

007074 


a 4 ^7rt/ 

01 2706 


A A 4 *^AA 

001 200 




1655 


007100 


AAA 4 1 

000177 


4 T" 4 A A 

172102 




1656 


007104 


A A A A A A 

000002 






4 1 C "7> 

1657 


007106 


A A A A A 4 

000001 






1658 


AA74 4 A 

007110 


rtrt/ 

006 


002 




1659 


007112 


001460 






1660 


007114 


A A A A A 4 

000001 






4 £. 1 4 

1661 


ArtTI 4 y 

007116 


A A T 

003 


A A A 

002 




1662 


007120 


A A 4 AAA 

001 202 






1663 










1664 










1665 










1666 










4 y y 1 

1667 










1668 










1669 










4 y ta 

1670 


A A 1 4 *"» "I 

007122 


A « A "1711 

012737 


007312 


A A A A A / 

000024 


4 y 14 

1671 


0071 30 


012737 


A A A T / A 

000340 


AAA A A £ 

000026 


4 y 

1672 


007136 


010046 






4 ' T7» 

1673 


AA "7 * / a 

007140 


01 01 46 








AA71 / O 








1675 


007144 


010346 






1676 


007146 


010446 






1677 


007150 


010546 






1678 


007152 


017746 


172062 




1679 


007156 


010637 


007316 




1680 


007162 


012737 


007174 


000024 


1681 


007170 


000000 







AP TABLE 



DATAHD: 
TYPDAT: 



DATA8P: 
RESREG: 
HALTS: 



6$: 
9$: 
3$: 



1$: 



EXITER: 



1$: 
21: 

ERTA80: 



XTSTN: 



BEQ 

TYPE 

0 

TST 
BEQ 
CONVRT 
0 

RES05 

CMP8 

BNE 

MOVB 

JSR 

.WORD 

BR 

CMP 

BEQ 

TST 

BPL 

PUSHR0 

MOV 

HALT 

P0PR0 

INC 

BIT 

BNE 

BIT 

BEQ 

MOV 

MOV 

JMP 

RTI 

1 

.BYTE 
SAVPC 
1 

.BYTE 
STSTNM 
; ENTER 



H 4 



TYPDAT 



DATABP 
RESREG 



*APTENV,$ENV 
3$ 

$ITEM8,6$ 

PC.$ATY4 

0 

9$ 

#$ENDAD,3#42 
IS 

asuR 

EXITER 
2(SP).R0 



SERTTL 

#SW08,aSWR 

1$ 

#swio,aswR 
2$ 

NEXT.SLPADR 

#STACK.SP 

a$LPADR 



6,2 



PAGE: 0046C2 



BR IF NO 
TYPE 

DATA HEADER 
DATA TABLE? 
BR IF NO. 
SHOW 

DATA TABLE 
RESTORE PR0C REGISTERS 

IS APT RUNNING ? 

SKIP APT CALL IF NOT. 

COPY ERROR 9. 

CALL APT SERVICES. 

ERROR # GOES HERE. 

LOCK HERE. 
IF ACT-11 AUTOMATIC MODE , HALT!. 1 

HALT ON ERROR? 

BR IF NO HALT ON ERROR 

SAVE RO 

SHOW ERROR PC IN DATA LIGHTS 

HALT 

GET RO 

UPDATE ERROR COUNT 
GOTO TOP OF TEST? 
8R IF YES 
GOTO NEXT TEST? 
BR IF NO 

SET FOR NEXT TEST 
RESET SP 

GOTO SPECIFIED TEST 
SLPADR 



3.2 

HERE ON POWER FAILURE 



.SBTTL POWER DOWN AND UP ROUTINES 

***************************************************************** 



.POWER DOWN ROUTINE 

tPWRDN: MOV #$ILLUP,i#PWRVEC 

MOV #340,a#PWRVEC+2 

MOV R0,-(SP) 

MOV RI.-(SP) 

MOV R2.-(SP) 

MOV R3.-(SP) 

MOV R4,-(SP) 

MOV R5,-(SP) 

MOV aSWR,-(SP) 

MOV SP.SSAVR6 

MOV #$PWRUP,3*PWRVEC 

HALT 



;SET FOR FAST UP 
PRIO:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH aSWR ON STACK 
SAVE SP 
;SET UP VECTOR 



08-JUN-78 
CZKCGA.P1 1 



07:54 PAGE 35 
08-JUN-78 07:53 



I 4 



POWER DOWN AND UP ROUTINES 



PAGE: 0W7U 



1 AH 3 


<V\71 70 
UUf 1 f d 


(W\77A 
UWf f O 






1 AH 7 
I DO 3 










1 

loo*» 










1 DO J 










1 AQA 

lotto 


Wf I f «t 


fti 1777 


AA771 3 
Wf 5\C 


UUUUiTH 


1 Oof 


UUf dU£ 


Ul 3f Uo 


nn77i a 
UUf 516 




1 ABO 


nn70AA 

Wf eUo 


<V4CA77 

W>U5f 


nn77i a 
UU f 3 1 0 




1 AHQ 
I DOT 


n/">731 3 

UUf £l £ 


nnco77 
UUj*:jf 


nn77i a 
UUf jlo 




lOVU 


nn731 A 
UUfclO 


*VM 77C 

UU1 V3 






1 AQ1 


nn733n 
Wf ccU 


1 n/ / ni 


nn7ccA 




1 AQ3 


/V1733Z. 

Wf cc** 


1 f\/ / 1 7 


nn773n 
UUf 3cU 




lOVj 


<V>737n 

wr cyj 


1 fnn77 


nni 3n7 




1 AQZ. 


W 'c>H 




nm 31 a 




1 AOI 


Wfc*»U 


f»1 77H1 
U I jf U I 


nn3nAA 
UUcUOO 




1 A OA 
I OVO 


Wf 


WjU 1 1 






1 AQ7 


fVi73Z.A 
Wf C*»0 


1 U*»*» 1 U 






1 AOS 
I OVO 


Wf CJ\J 


r»1 5A77 
U I cOf f 


1 71 7A/ 
l f I f 0»» 




1 U77 


Wf CJH 


ni ?An^ 

U I COVj 






1 7nn 
I f W 


<V>73C.A 
Wf C 30 


f»1 5Af»A 






I f U I 


«Vi73An 
UUf cOU 


m 3Af»7 
U I cOuj 








«Vi73A3 
Wf COc 


U I cOVC 








CV173AZ 
UUf cO*t 


m OAm 
U I cOV I 






1 7(V. 


<V>73AA 
Wf cOO 


ni 3 Ann 






1 7n^ 


<Vi737n 
UUf ciU 


m 3777 

U I C f Jf 


nn7i 33 
UUf I cc 


wwc* 


1 7HA 


<V>737A 
UUf Cf O 


0i 3777 

U I c f jf 


UWj*»U 


nnnn3A 

UUUUcO 


1 7n7 

I f Uf 


Wf jU*» 


1 nAZ.ni 






1 7na 

I f UO 


nn77flA 
UUf jUO 


Wf j jO 






1 7no 


no77i n 

UUf j I u 


rwv\r\o 

UWfWc 






1 71 n 

I f IU 


<V>771 3 
Wf 5 I C 


uwwu 






1 71 1 
I f 1 1 


<Vi771Z 


nnn77A 

lAAJf f O 






1 71 5 

I f I c 


<Vi771 A 
Wf j I O 


nnnnnn 






1 71 7 










1 71 L 
I f I «♦ 


nn773n 

UUf JcU 








1 71 ^ 


<V>7733 
Wf jcc 


nn7 


nn3 

UUc 




1 71 A 


Wf )£H 


nm 3n3 

W I cUi 






1 71 7 
I f I f 










1 71 R 
I f I O 


nn773A 
Wf JcO 








1 71 0 


nn773A 
Wf JCO 


ni 3777 

VlCfff 


WWcv 


1 73C/ n 
1 f C3*»U 


1 73n 
I f cU 


Wf Jj't 








1 731 
I f C I 


<V>777A 
Wf JjO 


131111 






1 7?? 
I f CC 


UUf J*«U 








1 737 
1 I CJ 




1 nzz. 1 3 






1 73Z. 
I f CH 


nn77Z.3 


1 31 33/ 






1 73^ 

1 f CJ 


Wf JMM 


n73777 

\Jjcf f f 


UUUUcU 


1 73C33 
I f CjCC 


1 73A 
1 ( CO 


nn77^3 
Wf JJC 


nni 773 
W I f f <: 






1 737 
I I CI 


nn 77^/. 
Wf J3m 


UwWc 






1 73fl 
I ( CO 










1 73Q 
I f CV 


<V(77^A 
Wf JJO 








1730 


007356 
vvi ~J J\J 


15P777 

1 JC f f f 


000100 


1 f c Jv** 


1731 


007364 


W>2777 


000300 


172476 


1732 


007372 


000002 






1733 










1734 


007374 








1735 


007374 


152777 


000002 


172466 


1736 


007402 


013677 


172470 




1737 


007406 


062746 


000002 







BR 


.-2 


* * 

; POWER 


UP ROUTINE 


SPWHUP : 


MOV 


Till m "iKHi mi/r 

#*I LLUP , S*PWRV - C 




10V 


SSAVR6.SP 




CLR 


At /nz 

JSAVRo 


1$. 


INC 


5SAVR6 




our 

BNE 


1 » 




TYPE 


.MPrAIL 




CNVH 1 


,Pf TAB 




r 1 no 

CLRS 


JERFLG 




CLH 


JERRHC 




nUV 


KnCoR.Kl 




CLK 


f D1 \ 




no l CLK 






UA1J 

nUV 






nUV 


V or; + ,K3 




nUV 


Vory + ^Rti 




MOV 


(SP)+.R3 




MOV 


(SP)+.R2 




nuv 






nuv 


f cd ^ a. on 




MOV 


#$PWRDN»a#PWRVEC 




MOV 


#340.*(fPWRVEC+2 




TVDC 
1 Trt 






Linon 

. wUHU 


MPP A 1 1 




nrr 

K 1 1 




SILLUP: 


LIAI T 

HAL 1 






DO 






U 




DC TAD ■ 

rr 1 fwi ■ 


I 






7 3 






STSTNM 












MAI/ 

nuv 


wcU.alWTrU't 










121111 




1 C • 








KUnCLK 






1 31 33/ 






niT 

oi r 






DC W 


14 




RTI 




MC in D 








*BIS8 


#8IT6.aW>1CSRH 




BJC8 


#BIT6!BIT7 # aKMCSI 




RTI 




.ROMCLK 








BIS8 


#BIT1 # aKWCSRH 




MOV 


8(SP)+,aW1P06 




ADD 


#2.-(SP) 



; ; HANG UP 



;SET FOR FAST DOWN 
GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 



CLEAR ERROR FLAG. 
CLEAR LAST ERROR PC 
RESTORE DEVICE ADDRESS. 
CLEAR THE CSR. 

POP STACK INTO SSWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO R0 

;SET UP THE POWER DOWN VECTOR 

PRI0:7 

REPORT THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 

THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



.-NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
.■POKE CLOCK DELAY BIT 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;P0RT4 IBUS*11 
;IS CLOCK BIT SET? 
;8R IF NO 



;SET MASTER CLEAR 
RH ; CLEAR MASTER CLEAR AND RUN 
.•RETURN 



;SET R0MI 

;L0AD INSTRUCTION IN SEL6 
.•ADJUST STACK 
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POWER DOWN AND 


UP ROUT J 


1738 


00741? 

WW ("It 


032777 

UJc iff 


000100 

WW 1 w 


171620 




n t T 

BIT 


1739 


007420 


001401 

WW 1 ~ W 1 








BEQ 


1740 


007422 

WW' ~cc 


OOOOGO 

www www 








HALT 


1741 


007424 

ww» 


152/77 

1 -'C til 


000003 

WW \J\J-J 


172436 


1$: 


BIS8 


1 742 


007432 


"\U2777 


000007 

WW WWW ' 


1 72430 




BICB 


1743 


007440 

vv * » » V/ 


00000? 

VWvvi. 








RTI 


1744 














1745 


007442 








.DATACLK: 


1746 


007442 


01 3637 


011122 






MOV 


1747 


007446 


062746 


000002 

W WW WWW 






ADD 


1748 


007452 

WW ' ~ J *» 


1 52777 


000020 

WW WW*, w 


1 72410 


1$: 


BIS8 


1749 


007460 

WW » ~ w>\/ 


027777 


1 72402 


1 72400 




CMP 


1750 


007466 


"\<*2777 


000020 

WW V Wb W 


1 7177/ 

1 72374 




BICB 


1751 


007474 


005337 


011122 






DEC 


1752 


007500 

W ■ ^ w w 


001364 








one 

BNc 


1753 


007502 


000002 








RTI 


1754 


007504 


000001 

www ■ 






7» 


.8LKW 1 


1755 














1756 


007506 








T T urn . 

•TIMER. 




1757 


007506 

W w ■ W 


01 3637 


011122 






MOV 


1758 


007512 


062746 


000002 

\S w w^ w w 






ADD 


1759 


007516 








15: 




1760 


007516 


104412 








nmir i w* 

ROMCLK 


1761 


007520 


021364 








AOI TiL/ 


1762 


007522 


032777 


000002 






BIT 


1763 


007530 


001772 








OCA 

BEQ 


1764 


007532 








i* . 
2$: 




1765 


007532 


104412 








RQnCLK 


1766 


007534 


021364 








A11 7/ / 

021364 


1767 


007536 


012777 


000002 


1 72330 




BIT 


1768 


007544 


001372 








BNE 


1769 


007546 


005337 


011122 






DEC 


1770 


007552 


001361 








BNE 


1771 


007554 


000002 








RTI 


1772 














1773 


007556 


050200 


051127 


A/ TA/ A 

043040 


MPFAJL : 


.ASCIZ 


(2) 


007614 


042600 


042116 


ACAA/ A 
050040 


ME PASS: 


.ASCIZ 


(2) 


007636 


051200 


000 




MR: 


•ASCIZ 


(2) 


007641 


200 


047516 


A/ 1A/ A 

042040 


MERR2: 


•ASCIZ 


(2) 


007666 

\m w • www 


044600 


051516 


A/ 71 *}C 

043125 


MERR3: 


•ASCIZ 


(?) 


007712 


046200 


041517 


02011 3 




act i 7 


(2) 


007741 


103 


051123 


A1AA71 

020072 


MCSRX: 


•ASCIZ 


(2) 


007747 


126 


041505 


02007? 


MVECX: 


-ASCIZ 


(2) 


007755 


120 


051501 


042523 


MPASSX: 


•ASCIZ 


(2) 


007766 


051105 


047522 


ac ^ c n 

051522 


MERRX: 


•ASCIZ 


(2) 


007777 


124 


051505 


A1A1 1/ 

0201 24 


MTSTN: 


•ASCIZ 


(2) 


010011 


052 


000 




MASTEK: 


•ASCIZ 


(2) 


010013 


200 


042523 


A1A1 1/ 


MNEW: 


•ASCIZ 


(2) 


010066 


041520 


020072 


000 


MERRPC : 


•ASCIZ 


(2) 


010073 


200 


020040 


A1AA> rt 

020040 


XHEAD: 


•ASCII 


(2) 


010132 


020200 


020040 






•ASCII 


(2) 


010171 


200 


020040 


041520 




.ASCII 


(2) 


010243 


200 


026455 


026455 




•ASCIZ 


(2) 


010317 


200 


047510 


020127 


NUM: 


•ASCIZ 


(2) 


010357 


200 


051503 


020122 


CSR: 


.ASCIZ 


(2) 


010375 


200 


042526 


052103 


VEC: 


•ASCIZ 



#SW06.aSWR .-HALT IF SW06 -1 

1$ ;8R IF SW06 =0 

;HALT BEFORE CLOCKING INSTRUCTION 
#BIT1!BIT0.a<MCSRH ;CL0CK INSTRUCTION 
#BIT2!BIT1 IBITO.aKMCSRH ; CLEAR R0M0, R0MI , STEP 



3(SP)+.TEMP 

#2,-(SP) 

#BIT4.aKMCSRH 

SKMCSR.aKMCSR 

#BIT4.aKMCSRH 

TEMP 

1$ 



PUT TICK COUNT IN TEMP 

ADJUST STACK 

SET STEP LU 

WASTE TIME 

CLEAR STEP LU 

DEC TICK COUNT 

BR IF NOT DONE 

RETURN 



a(SP)+.TEMP 
#2.-(SP> 



#2.dKMP04 
11 



#2.aKMP04 
2S 
TEMP 
1J 



MOVE COUNT TO TEMP 
ADJUST STACK 

NEXT WORD IS INSTRUCTION. ROMCLK PC 5304 

P0RT4 IBUS* REG11 

IS PGfl CLOCK BIT CLEAR? 

BR IF YES 

NEXT WORD IS INSTRUCTION. ROMCLK PC 5304 

P0RT4 IBUS* REG11 

IS PGR CLOCK BIT SET? 

BR IF YES 

DEC COUNT 

BR IF NOT DONE 

RETURN 



<200>/PWR FAILED. RESTART AT TEST / 

<200>/END PASS CZKCG / 

<200>/R/ 

<200>/N0 DEVICES PRESENT./ 
<200>/INSUFFICIENT DATA!/ 
<200>/L0CK ON SELECTED TEST/ 

/CSR: / 
/VEC: / 
/PASSES: / 
/ERRORS: / 
/TEST NO: / 
/*/ 

<200>/SET SWITCH REG TO KMC 1 1 ' S DESIRED ACTIVE./ 
/PC: / 

<200>/ MAP OF KMC 11 STATUS/ 

<?00>/ / 

<200>/ PC CSR STAT1 STAT2 STAT 3/ 

<200>/ / 

<200>/HOW MANY KMC1TS TO BE TESTED?/ 
<200>/CSR ADDRESS?/ 
<200>/VECTOR ADDRESS?/ 
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(2) 


010416 


041200 


020122 




(2) 


010455 


200 


044127 




(2) 


010567 


200 


053523 


KJJC I I I 


(2) 


010625 


200 


053523 


UJ£ 1 1 1 


(2) 


010665 


200 


051511 




(2) 


010725 


200 


047516 




(2) 


010756 


100200 


046513 




(2) 


011023 


200 


054105 




(2) 


011044 


024040 


046513 




(2) 


011054 


046040 


040517 


\JHHj\JH 


(2) 










(2) 


011074 


000005 






1774 


011076 


006 


003 




1775 


011100 


001276 






1776 


011102 


006 


003 




1777 


011104 


001300 






1778 


011106 


006 


003 




1779 


011110 


001302 






1780 


011112 


006 


003 




1781 


011114 


001304 






1782 


011116 


006 


002 




1783 


011120 


001306 






1784 










1785 










1786 










1787 










1788 


011122 


000000 






1789 




011164 






1790 


011164 


000000 






1791 




011226 






1792 










1793 










1794 










1795 










1796 










1797 










1798 


011226 


022737 


0001 76 


\J\J 1 C**U 


1799 


011234 


001075 






1800 


011236 


132737 


000001 


VA/ I JJO 


1801 


011244 


001071 






1802 


011246 


022777 


000007 


16777? 

1 O/ 1 1 C 


1803 


011254 


001404 






1804 


011256 


022777 


000207 


1 Of I Oc 


1805 


011264 


001061 






1806 


011266 


010246 






1807 


011270 


010346 






1808 


011272 


010446 






1809 


011274 


012737 


177777 


\J 1 1 HJC 


1810 


011302 


005002 






1811 


011304 


012704 


"[77777 




1812 


011310 


104401 


005535 




1813 


011314 


104417 






1814 


011316 


011466 






1815 


011320 


104401 


005546 




1816 


011324 


004737 


011434 




1817 


011330 


022703 


000015 





K 4 

rfER DOWN AND UP ROUTINES 



PRI0 
M0DU 
LINE 
BM: 
CONN: 
N0ACT 
C0NERR 
CNERR 
KMCM: 
MLDER 
.EVEN 
XSTATj 



.EVEN 



CKSWR: 



1$: 



CKSWR1 



CKSWR2: 

CKSWR3: 
CKSWR4 : 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

5 

.8 V TE 
$TMP0 
•BYTE 
STMP1 
.BYTE 
STMP2 
.BYTE 
$TMP3 
• BYTE 
STMP4 



<200>/BR PRIORITY LEVEL? U.5,6.7)?/ 
<200>/WHICH LINE UNIT? IF NONE TYPE "U". 
<200>/SWITCH PAC*1 (DDfMP LINE #)?/ 
<200>/SWITCH PAQM2 (BM873 BOOT ADD)?/ 
<200>/IS THE LOOP BACK CONNECTOR ON?/ 
<200>/NO DEVICES ARE SELECTED/ 
<200><200>/KMC11 AT NONSTANDARD ADDRESS 
<200>/EXPECTED FOUND/ 
/ (KMC) / 
/ LOADING ERROR / 



6.3 
6.3 
6.3 
6.3 
6.2 



PAGE : 004 9Ci 



If M8201 TYPE "1", IF M 



PC: / 



.•BUFFERS FOR INPUT -OUTPUT 



TEMP: 0 
.=.♦40 
MDATA: 0 
.=.♦40 



ROUTINE USED TO CHANGE SOFTWARE SWITCH 
REGISTER USING THE CONSOLE TERMINAL 



CMP 

BNE 

BITS 

BNE 

CMP 

BEQ 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

TYPE 

CNVRT 

SOFTSW 

TYPE 

JSR 

CMP 



'SWREG.SWR 

CKSWR5 

#1.$ENV 

CKSWR5 

#7.a$TKB 

IS 

#207.a$TK8 

CKSWR5 

R2,-<SP) 

R3.-(SP) 

R4,-(SP) 

#-1.SWFLG 

R2 

#-1 ,R4 
.SMSWR 



,$MNEW 

PC.1NCHAR 
#15. R3 



IS THE SOFT SWR BEING USED? 
BR IF NO 

IS IT RUNNING UNDER APT? 

EXIT IF YES. 
WAS CTRL G TYPED? (7 BIT ASCII) 
BR IF YES 

WAS CTRL G TYPED? (8 BIT ASCII) 
BR IF NO 
STORE R2 
STORE R3 
STORE R4 

SET SOFT TYPE OUT FLAG 
CLEAR NEW SWR CONTENTS 
SET FLAG TO ALL ONES 
TYPE ' "SWR- " 

TYPE OUT PRESENT CONTENTS 
OF SOFT SWITCH REGISTER 
TYPE 'NEW? " 
GET RrSPONSE 
WAS IT A CR? 
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L 4 

POWER DOWN AND UP ROUTINES 



PAGE: 0050C; 



1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 , 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 . 

1851 i 
1852 
1853 
1854 
1855 ' 



011334 001424 

011336 022703 000012 

011342 001416 

011344 022703 000025 

011350 001754 

011352 022703 000007 

011356 001762 

011360 005004 

011362 042703 177770 

011366 006302 

011370 006302 

011372 006302 

011374 050302 

011376 000752 

011400 012766 002402 000006 

011406 005704 . 

011410 001002 

011412 010277 167622 . - 

011416 005037 011432 

011422 012604 ^ 

011424 012603 

011426 012602 ' • ;\ 

011430 000207, 

011432,000000 ^ 





BEQ 


55 


;BR IF YES 




CMP 




;WAS IT A LF? 


- 




*t» 


;8R IF YES 




CMP 




;WAS IT CTRL U? 




BEQ 


CKSWR I 


;BR IF YES (START OVER) 




CMP 


W7.R3 


;IF CNTL G GET NEXT CHAR 




BEQ 


ri/ci in/ 








CLR 


Km 


;IT MUST BE A DIGIT SO CLR FLAG 




BIC 


»1 f r f f\),Rj 


;0NLY 0-7 ARE LEGAL SO MASK OFF 




ASL 


R2 1 


.-SHIFT R2 3 TIMES 




A CI 

ASL - 


Hd 








A CI 

ASL 


K<: 








BIS 






ADD LAST DIGIT 




DO 

BR 






GET NEXT CHARACTER 




Mm/ 






•LF WAS TYPED SO GO TO START 




t<;t 

1 O 1 


DA 




•IS FLAG CLEAR? 

■IF NOT DON'T CHANGE SOFT SWR 




BNE 


6$ 






MOV 


R2.3SWR 




•IF YES * THEN WRITE NEW CONTENTS 


6$: ' 


CLR 


SWFLG 




•CLEAR TYPEOUT FLAG 




MOV 


(SPH.R4 




; RE STORE R4 




"MOV 


(SP)+.R3 




•RESTORE R3 




MOV 


(SPM.R2 




RESTORE R2 


. CKSWR5: 


RTS 


PC 




; RETURN 



011434 
011440 
011442 
011446 
011452 
011454 
011460 
011464 

011466 
011470 
011472 



105777 167604 
100375 t " / 
017703* 167600 
105777 167576 
100375 5 , 
010377 167572 
042703: 000200 
000207 s - , ,«*: 



000001 , 

>-006, 
000176 J 



.002 



.SWFLG: 0 

INCHAR:' TST8 
8PL 

MOV, 
. TSTB 
* BPk 
* ;MCV 

:bic: 

„ RTS/ * 

S0FTSW: % 1 f * 

' , * -J " .BYTE, 
..»/*. SWREG 



aSTKS 

< .-4 

\ a$TKB,R3 

asTPS 

.-4 ' 

R3.a$TP8 

#BIT7.R3 

PC, - 



6,2 
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POWER DOWN AND 



1856 










1857 










1858 










1859 










1860 










1861 










1862 










1863 










1864 










1865 


01 1474 


AAr -9T~y 

005737 


AA1 / 1A 

001470 




1866 


r\ + + C A A 

011500 


AA4 A/1 / 

001004 






1867 


01 1 502 


4 Ay / A 4 

104401 


A4 A^ 1^ 

010725 




1868 


011506 


AAAAAA 

000000 






1869 


011510 


000776 






1870 


011512 
01 1514 


AAA**/ 1 

000241 






1871 


006137 


AA1 CAA 

001500 




1872 


01 1 520 


AAC C 77 

005537 


AAi CAA 

001 500 




1873 


01 1 524 


Ay ^777 

062757 


AAAAA/ 

000004 


AA1 C A / 

001 bOA 


1 07/ 


A4 4f »1 

011532 


f\s 1777 

062757 


AAAA1 A 

000010 


AAi CA*5 

001502 


1 Q7C 

1875 


011540 


A*7*7777 

022757 


A A 1 7AA 

002300 


AA1 CA1 

001 502 


1876 


A 1 1 C/ Z. 

01 1 546 


AA1 AAi 

001006 






1 077 

IB// 


A1 1 CCA 

01 1 550 


A1 ^777 

012737 


AA ~i 1 AA 

002100 


AA1 C A*5 
001502 


1878 


A1 1 cti 

Oil 556 


A1 1777 

012/5/ 


AA*77A"5 

002502 


AAI CA/ 

001 504 


lo/V 




A77777 

055/5/ 


AA 1 CAA 

00 1 300 


AA1 7 7 A 

OOl^/O 


1 OQA 

loou 


A1 1 C 7*5 


AA1 7/ 7 
001 /*»/ 






1881 


Ai 1 C 7/ 


A1 77AA 

015/00 


AAi CAT 

001502 




1 DO 1 

1882 


AI 4 ^ AA 


Ai 77A1 

015/02 


AA1 cn/ 
001 50<» 




1 DOT 

1885 


1 / A/ 

011604 


A1 7A77 
01203/ 


002066 




1 oo/ 

1884 


A1 1/lrt 

011610 


A1 1 A77 

01 103/ 


AA7ACZ 

002056 




1 ooc 

1885 


Ai 1 1 / 

011614 


Ay *7777 

042737 


1 77AAA 

1 7/000 


aa in c ^ 
002056 


1886 


01 1 622 


A1 7A77 

01205/ 


AA "1 AC A 

002050 




1 DO? 

1 887 


A1 1 ^. "7/. 

01 1 626 


A1 OA77 

01203/ 


AA TAC *7 

002052 




1 ooo 

1888 


AI 1/71 

01 1632 


A1 *7A77 

01205/ 


00205*» 




IOOV 


Ai 1 Z. 7/ 

011636 


A1 H77 

012237 


AA1 7*5/ 

001 524 




1 OfV*\ 


Ai 1/ / 1 

011642 


A1 H77 

01223/ 


AA1 "51 1 

001212 




loVl 


Ai i/y / 

01 1646 


AI 17AA 

012/00 


AAAAA "1 

000002 




^ on*) 

loSV 


AI 1/C1 

011652 


A1 7777 

013/37 


AAlAZi 

002066 


AATA7A 
0020/0 


1 OAT 

18V5 


Ai 1 //A 

01 1 660 


AAC777 

00523/ 


AA1A7A 

0020/0 




i on/ 

1894 


Ai i / 

01 1664 


A1 7777 

013/5/ 


AAOA7A 

0020/0 


AATA7 1 

0020/2 


1 one 

1895 


Ai 1/T1 

01 1672 


AAC *77/7 

005237 


AA 1A71 

002072 




i Oft/ 

1896 


AI 1/ 7/ 

Oil 676 


A1 7777 

013737 


AA*7A7*7 

002072 


AA *>A7/ 

0020/4 


1 Of) 7 

1 89/ 


Ai 1 7A/ 

01 1 so** 


A^AA77 

06003/ 


AAOA7/ 

0020/4 




1898 


Ai i 71 A 

011710 


A1 7777 

013737 


AA1A7/ 

002074 


AA 1A7/ 

0020/6 


1899 


Ai 1 71 Z 

01 1 716 


A/ AA77 

060037 


AA1A7Z. 

002076 




1900 










1901 


01 1 722 


A 1 7777 

013737 


AA 7 AC Z 

002056 


AA1AZ A 

002060 


1V02 


01 1 /50 


/■w A A 7 7 

060037 


002060 




1903 


Ai 1 77y 
01 1 /54 


A1 7777 
013/3/ 


AA1AXA 

002060 


002062 


1(VV 


H1 1 7/13 


run/1 1 7 
U6UU5/ 


UU2U62 




1905 


01 1 746 


013737 


002062 


002064 


1906 


01 1 754 


060037 


002064 




1907 










1908 


01 1 760 


032737 


000002 


00H46 


1909 


011766 


001447 






1910 


011770 








T911 


011770 


005737 


000042 





CYCLE: 



IS: 



2S: 



4$: 



m 4 

UP ROUTINES 



PAGE: 0051 C; 



; ROUTINE USED TO "CYCLE" THROUGH UP TO 16 KMC 1 1 ' S 
; THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 

; AND RUNS THE SPECIFIED KMC1TS. THIS ROUTINE »MUST* 
;8E RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
.SETUP NECESSARY. 

TST KMACTV ;ARl- ANY KMC1TS TO BE TESTED? 

BNE 1$ ;BR IF OK. 

TYPE .N0ACT ;N0 KMC 1 1 ' S SELECTED!! 

HALT .STOP THE SHOW. 

BR .-2 .-DISQUALIFY C0NT. SW. 

CLC .CLEAR PR0C. CARRY BIT. 

R0L RUN .-UPDATE POINTER 

ADC RUN .-CATCH CARRY FROM RUN 

ADD #4. MILK ; UPDATE POINTER 

ADD #10. CREAM .-UPDATE ADDRESS POINTER. 

CMP *KM .MAP+200 . CREAM 

BNE 2$ .KEEP GOING; NOT ALL TESTED FOR. 

MOV #KM. MAP. CREAM .-RESET ADDRESS POINTER. 

MOV #CNT. MAP, MILK .-RESET PASS COUNT POINTER 

BIT RUN, KMACTV ;IS THIS ONE ACTIVE? 

BE0 1S ;BR IF NO 

MOV CREAM, R0 .GET ADDRESS POINTER 

MOV MILK.R2 .GET PASS COUNT POINTER 

MOV (R0)*,KMCSR ;L0AD SYSTEM CTRL. REG 

MOV (RO).KMRVEC ;L0AD VECTOR 

BIC #1 77000, KMRVEC .'CLEAR UNWANTED BITS 

MOV (R0)+,STAT1 ;L0AD STAT1 

MCV (R0)+.STAT2 .-LOAD STAT? 

MOV (R0)*.STAT3 .-LOAD STAT3 

MOV (R2)+,fPASS ;L0AD PASS COUNT 

MOV (R2)+.$ERTTL ;L0AD ERROR COUNT 

MOV #2,R0 .SAVE CORE THIS WAY ! 

MOV KMCSR.KMCSRH 

INC KMCSRH 

MOV KMCSRH.KMCTL 

INC KMCTL 

MOV KMCTL.KMP04 

ADD R0.KMPO4 

MOV KMP04.KMP06 

ADD R0.KMP06 

MOV KMRVECKMRLVL ;PTY LVL 

ADD RO.KMRLVL 

MOV KMRLVL .KMTVEC ;TX VEC 

ADD RO. KMT VEC 

MOV KMTVEC, KMTLVL ;TX LVL 

ADD RO.KMTLVL 

BIT #SW01,STRTSW ;IS TEST NO. SElECTED 

BEQ 7$ ;BR IF NO 

TST S#42 .-RUNNING IN AUTO MODE? 
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N 4 
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1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

195 b 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 



011774 
011776 
012002 
012004 
012006 
012010 
012012 
012014 
012015 
012016 
012022 
012024 
012026 
012010 
012036 
012040 
012046 
012050 
012054 
012060 
012066 
012070 
012072 
012076 
012100 
012104 

012106 
012114 
012120 



012124 
012124 
012126 
01213? 
012134 
012140 
012142 
012146 
012152 
012156 
012164 
012166 
012172 
012200 
012202 
012204 



001044 
104401 
104415 
007777 
000001 
001000 
001202 
000 
001 
012700 
022710 
012737 
001020 
023760 
001014 
022760 
001010 
010037 
104401 
042737 
000412 
005720 
020027 
001351 
104401 
000731 

012737 
013701 
000177 



000005 
012702 
005022 
022702 
001374 
005037 
01270? 
005037 
032737 
001002 
000137 
012737 
104415 
010317 
000001 



001313 



013762 

001202 

001202 

001206 
007636 
000002 

016400 
001312 



013762 
002066 
167062 



.BYTE 
• BYTE 

5$: 



000002 
000004 

001446 



001206 



6$: 



7%: 
8$: 



BNE 

TYPE 

INPUT 

MTSTN 

1 

1000 
STSTNM 
0 
1 

MOV 

CMP 

MOV 

BNE 

CMP 

BNE 

CMP 

BNE 

MOV 

TYPE 

BIC 

BR 

TST 

CMP 

BNE 

TYPE 

BR 

MOV 
MOV 
JMP 



7% 

.SCRLF 



;8R IF YES 



#TST1 ,R0 




(PC)* (RO) ;CMP FIRST WORD TO 12737 


(PC) + .a(PO* 




6$ 


BR IF NOT SAME 


$TSTNM.2(R0) 


DOES STSTNM MATCH? 


6$ 


BR IF NO 


#$TSTNM.4(R0) 


IS LAST WORD OK? 


6S 


BR IF NO 


RO.SLPADR 


IT IS A LEGAL TEST SO DO IT 


.MR 




#SU01,STRTSW 




8$ 




(R0) + 


POP RO 


R0.#TLAST*10 


;AT END YET 7 


5$ 


;BR IF NO 


.JQUES 


,YES ILLEGAL TEST NO. 


41 


; TRY AGAIN 



#TST1,$LPADR 

KMCSR.R1 

aSLPADR 



.•PREPARE SLPADR ADDRESS 
;R1 = BASE KMC 11 ADDRESS 
.GO START TESTING. 



.ROUTINE USED TO "AUTO SIZE" THE KMC 11 
;CSR AND VECTOR. 

;NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE (160000:164000) 
AND THE VECTOR MAY BE ANY WHERE IN THE 

; FLOATING VECTOR RANGE (300:770) 







9 

AUTO. SIZE: 










RESET 




INSURE A BUS INI T. 


002100 




CSRMAP: MOV 


*KM.MAP,R2 


LOAD MAP POINTER. 






1$: CLR 


(R2) + 


ZERO ENTIRE MAP 


002300 




CMP 


#KM.END.R2 


ALL DONE? 






BNE 


1$ 


BR IF NO 


001472 




CLR 


KMNUM 


SET OCTAL NUMBER OF KMC1 1 ' S TO 0 


002100 




MOV 


*KM.MAP,R2 


R2 POINTS TO KMC MAP 


001470 




CLR 


KMACTV 


CLEAR ACTIVE 


000001 


001446 


BIT 


#SUOO,STRTSW 


QUESTIONS? 






BNF 


.♦6 


BR IF YES 


012554 




JMP 


7$ 


IF NO SKIP QUESTIONS 


000001 


001306 


MOV 
INPUT 
NUM 
1 


#1.$TMP4 


START WITH 1 
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B 5 



POWER DOWN AND UP ROUTINES 



PAGE: 005 3Ci 



1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

t 021 

2022 

2023 



012206 

012210 

012212 

012213 

012214 

012222 

012226 

012230 

012232 

012236 

012240 

012242 

012244 

012246 

012250 

012251 

012252 

012256 

012260 

012262 

012264 

012266 

012270 

012271 

012272 

012276 

012300 

012302 

012306 

012312 

012314 

012320 

012322 

012326 

012330 

012332 

012334 

012340 

012342 

012344 

012346 

012350 

012352 

012352 

012352 

012354 

012356 

012362 

012366 

012370 

012374 

012376 

012402 

012404 

012406 

012410 



000020 
001302 
000 
001 
013737 
104401 
104416 
013214 
005237 
104415 
010357 
160000 
164000 
001304 
000 
001 
013722 
104415 
010375 
000000 
000776 
001304 
000 
001 
013712 
104401 
010416 
004737 
022703 
101014 
022703 
103411 
012704 
006303 
005304 
001375 
042703 
050312 
000403 
104401 
001312 
000752 



104401 
010455 
004737 
022703 
001422 
022703 
001412 
022703 
001403 
104401 
001312 
000760 



001302 001472 
001313 



001306 



12$: 



001304 



001304 

013506 
000024 

000027 

00001 1 

170777 



10$: 



50$: 



8$: 
9$: 
16$: 



013506 
000021 

000022 

000116 



16. 






$TWP2 






.BYTE 


0 




• BYTE 


1 




MOV 


$TMP2,KMNUM 


;KMNUM - HOW MAN V 


TYPE 


,$CRLF 


CONVRT 




; TYPE WHICH KMC IS BEING DOf 


WHICH 




;$TMP4 IS WHICH KMC 


INC 


$TMP4 




INPUT 






CSR 






160000 






164000 






$TMP3 






.BYTE 


0 




.BYTE 


1 




MOV 


$TMP3.(R2>+ 


.-STORE CSR IN MAP 


INPUT 






VEC 






0 






776 






$TMP3 






.BYTE 


0 




.BYTE 


1 




MOV 


$TMP3.(R2> 


.-STORE VECTOR IN MAP 


TYPE 






PRIO 




;ASK WHAT BR LEVEL 


JSR 


PC.INTTY 


;GET RESPONSE 


CMP 


#24, R3 




BHI 


50$ 


;BR IF LESS THAN 4 


CMP 


#27, R3 




BLO 


50$ 


;BR IF GREATER THAN 7 


MOV 


#11, R4 


;R4 = NUMBER OF SHIFTS 


ASL 


R3 


.-SHIFT R3 LEFT 


DEC 


R4 


;DEC SHIFT COUNT 


BNE 


.-4 


;BR IF NOT DONE 


BIC 


#1 70777, R3 


;BIC UNWANTED BITS 


BIS 


R3,(R2) 


;PUT BR LEVEL IN STATUS MAP 


BR 


8$ 


.•CONTINUE 


TYPE 






$QUES 




.•RESPONSE IS OUT OF LIMITS 


BR 


10$ 


; TRY AGAIN 



TYPE 

MODU 

JSR 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

TYPE 

$QUES 

BR 



PC.INTTY 

#21.R3 

30$ 

#22, R3 
31$ 

#116, R3 
32$ 



16$ 



;ASK WHICH LINE UNIT 

;GET REPLY 

;'T' 

;'2" 



;IF NOT A 1,2 OR N TYPE "?" 
; TRY AGIAN 
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C 5 




PAGE: 0054 Ci 




P1 1 08-JUN-78 


07- 5"? 

VI • JJ 




POWER DOWN AND 


UP ROUTINES 




20?4 


012412 


052722 


ni noon 

V 1 vvvv 




32$: 


BIS 


#BIT12.(R2)+ ;SET BIT 12 IN STAT2 IF NO LU 




POPS 

CvC J 


012416 


022222 








CMP 


(R2)+,(R2)+ ;P0P OVER STAT2 AND STAT3 




?0?6 


012420 


000450 








BR 


33$ 






?0?7 

CvC 1 


012422 


052712 


vCvvvv 




31$: 


BIS 


#BIT13.(R2) ;SET BIT 13 IN STAT2 IF M8202 




?0?8 

LVLU 


012426 


052762 


vvvvvC 


000004 




BIS 


#BIT1,4(R2) 


•SET BIT1 IN STAT3 FOR HIGH SPEED 


MICRO-CODE. 


?0?9 

CvC 7 


012434 


104401 






30$: 


TYPE 


2030 


012436 


010665 








CONN 




•ASK IF LOOP-BACK IS ON 




?0^1 


012440 


004737 


0H506 

v I JJUO 






JSR 


PC . INTTY \ 


•GET REPLY 




2032 


012444 


022703 


0001 51 






CMP 


#131 .R3 


•Y 




2033 

CVJJ 


012450 


001406 








BE0 


17$ 








012452 


022703 


oom 16 






CMP 


#116. R3 ;N 




2035 


012456 


001406 








BEQ 


18$ 






?ov> 

tyjo 


012460 


104401 








TYPE 






PO^ 


012462 


001312 








$QUES 




;IF NOT Y OR N TYPE "?" 




?038 


012464 


000763 








BR 


30$ ; 


; TRY AGAIN 




2039 

CVJ7 


012466 


052722 


040000 




17$: 


BIS 


#BIT14.(R2)+ 


; TURNAROUND IS CONNECTED 




2040 


012472 


000402 








BR 


19$ 






012474 


042722 


040000 




18$: 


BIC 


#BIT14.(R2)+ ;N0 TURNAROUND 




2042 


012500 








19$: 






2043 


012500 


104415 








INPUT 








2044 


012502 


010567 








LINE 








2045 


012504 


000000 








0 








2046 


012506 


000377 








377 








2047 


012510 


001304 








$TMP3 








2048 


012512 


000 








.BYTE 


0 






2049 


012513 


001 








.BYTE 


1 






2050 


012514 


1 1 3722 


001304 






M0V3 


$TMP3.(R2)+ .-STORE SWITCH PAC IN MAP 




2051 


012520 


104415 








INPUT 




2052 


012522 


010625 








BM 








2053 


012524 


000000 








0 








2054 


012526 


000377 








377 








2055 


012530 


001304 








$TMP3 








2056 


012532 


000 








.BYTE 


0 






2057 


012533 


001 








.BYTE 


1 






2058 


012534 


1 1 3722 


001 304 






wove 


$TMP3.(R2)+ 


; STORE SWITCH PAC IN MAP 




2059 


012540 


005722 








TST 


(R2) + 


;P0P OVER STAT3 




2060 


012542 


005337 


001302 




33$: 


DEC 


$TMP2 


;DEC KMC COUNT 




2061 


012546 


001225 








8NE 


12$ 


;BR IF MORE TO DO 




2062 


012550 


000137 


0131 14 






JMP 


13$ 


: CONTINUE 




2063 


012554 


012701 


160000 

1 UvV/ w 




7$: 


MOV 


#1 60000. R1 


•SET FOR FIRST ADDRESS TO BE TESTED 


2064 


012560 


012737 


013206 


000004 




MOV 


#6$,a#4 


;SET FOR N0N-EXISTANT DEVICE TIME 


OUT 


2065 


012566 


005011 






2$: 


CLR 


(RD 


: CLEAR SEL0 


2066 


012570 


005711 








TST 


(R1) 


•IF KMC11 KMCSR S/B 0 




2067 


012572 


001140 








BNE 


3$ 


IF NO DEV ; TRAP TO 4. IF NO BIT 


8 THEN NO KMC 1 


2068 


012574 


005061 


000006 

WvvvU 






CLR 


6(R1) 


•CLEAR SEL6 


2069 


012600 


005761 


000006 

WWW 






TST 


6(R1) 


•IF KMC11 THEN KMRIC S/B =0! 




2070 


012604 


001133 








BNE 


3$ 


BR IF NOT KMC 11 




2071 


012606 


012711 


002000 

V/V/C. WW 






MOV 


#BIT10.(R1) 


SET R0M0 




2072 


012612 


005061 


000004 






CLR 


4(R1) 


CLEAR SEL4 




2073 


012616 


012761 


125252 


000006 




MOV 


#125252, 6(R1) 


WRITE THIS TO SEL6 




2074 


012624 


052711 


020000 






BIS 


#BIT13.(R1) 


WRITE IT! 




2075 


012630 


022761 


125252 


000004 




CMP 


#125252\4<R1) , 


WAS IT WRITTEN? 




2076 


012636 


001116 








BNE 


3$ 


IF NO IT IS NOT CRAM 




2077 


012640 








;AT THJS POINT 


IT IS ASSUMED THAT R1 HOLDS A KMC 11 CSR ADDRESS. 




2078 








21$: 










2079 


012640 


010122 






22$: 


MOV 


R1,(R2)+ .-STORE CSR IN CORE TABLE. 
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2080 

CvOV 


012642 


01271 1 

U It' 1 1 


001000 




15$- 


MOV 

1 IVT 


2081 




005061 


000004 






n r 


2082 


012652 


01 2761 

v l C f v 1 


122113 

ICC 1 1 J 


000006 




MOW 

nuv 


2083 


012660 

V 1 CVXJV 


05271 1 

\JJCf 1 1 


000400 

WVHVV 






RI ^ 

Dl 3 


C VV"f 


012664 

v i cvAn 


01 2761 


021264 

VC 1 CU*i 


000006 




MOV 


2085 


01 2672 

V 1 LUi C 


05271 1 

VyL' 1 1 


000400 

vW"wV 






RI 5 

Dl O 


2086 


01 2676 


1 22761 

I LL r V I 


000377 


000004 

vvvvv" 






2087 


012704 

VIC' V"f 


001003 

VV 1 wj 








RNF 

Of *L 


2088 

c vw 


012706 


052712 


010000 

V 1 WW 






RI S 


2089 


012712 

V 1 LI lb 


000441 

uv\n" i 








RR 


2090 


012714 

VIC' 1 ~ 


032761 

VJC ' V 1 


000002 

V vvvvc 


000004 

wvvvv" 




RI T 


2091 


012722 

V 1 t t c c 


001406 

VV 1 ~ w 








RFQ 


2092 


012724 


052712 

V ./ C ' 1 L 


060000 

www 






RIS 


2093 


012730 


052762 


000002 

V VV wc 


000004 

vvvvv" 




RI 5 

Dl O 


2094 


012736 

V 1 LI ~J\J 


000427 

WVTC » 








RR 

on 


2095 


012740 


032761 


00001 0 

WW 1 V 


000004 

V VW V^ 




BIT 

Ul 1 


2096 


012746 

V 1 L ' ~ V 


001023 

VV ' vlJ 










2097 


01 2750 


012761 


0001 00 

VW I VV 


000004 

WW v~ 




MOV 


2098 


012756 


012761 


122113 

1 CC 1 ■ — ' 


000006 

WWW 




MOV 

1 TV w 


2099 


012764 


05271 1 


OOO40O 

VVV~ VV 






RI 5 

Dl O 


2100 


012770 


012761 


021264 


000006 




MOV 


2101 


01 2776 


052711 


000400 






BIS 

Dl O 


2102 


013002 


032761 


000010 

WW 1 V 


000004 




BIT 

Dl ■ 


2103 


013010 


001402 








BFQ 


2104 


013012 


052712 


040000 

V™ WW 






Dl O 


2105 


013016 


005722 






20$- 

C V* • 


TST 


2106 


013020 


012761 


021324 


000006 

V W W w 




MOV 

1 IV V 


2107 


013026 


012711 


001400 






MOV 


2108 


013032 


156122 


000004 

w w v™ 






Bisa 

Dl >JU 


2109 


013036 


012761 


021344 

VC 1 « 


000006 

WWW 




MOV 

1 IV v 


2110 


01 3044 


012711 


001400 






MOV 


2111 


013050 


156122 


000004 

v w w~ 






Dl nXJ 


2112 


013054 


005722 








1 0 1 


2113 


013056 


005011 








CLR 


2114 


013060 


005237 


001472 






INC 


2115 

Kb • ■ ^ 


013064 

v i j wn 


022737 


000020 

VVVVC V 


001472 

VV H'C 






2116 


01 3072 


001410 

VV 1 ~ 1 V 








RFG 

DC V 


2117 

C 1 ■ ' 


013074 


005011 

VV-/V 1 1 










2118 


01 3076 


005061 

W-S W 1 


000006 

www 








2119 


013102 


062701 

VVL ' V 1 


000010 

WW I V 




14$: 


Ann 


2120 


013106 


022701 


164000 

1 V"f vvv 






rMP 


2121 

C ' c ■ 


013112 


001225 

VV ICC--' 








RNF 
owe 


2122 


013114 


005037 


001470 

VV 1 ~ f V 




1 3i- 


n r 


2123 


013120 


005737 

VV«^ » r 


001472 

VV 1 ~ ' c 






1 0 1 


2124 


013124 


001423 








RFC 

DC W 


2125 


013126 


01 3701 


001472 

VV 1 ~ ' c 






Mfi\/ 

I IV V 


2126 


013132 


010137 


001476 

W 1 ~ » V 








2127 


013136 


000241 






4$: 


CLC 


2128 


013140 


006137 


001470 




R0L 


2129 


013144 


005237 


001470 






INC 


2130 


013150 


005301 








DEC 


2131 


013152 


001371 








BNE 


2132 


013154 


012737 


000006 


000004 




MOV 


2133 


013162 


013737 


001470 


001474 




MOV 


2134 


013170 


000137 


013222 






JMP 


2135 


013174 


104401 


007641 




5$: 


TYPE 



D 5 



riNES 



PAGE: OG55C2 



#BIT9,(R1) 
4(R1) 

#122113, 6(R1) 
#BIT8,(R1) 
#021264. 6(R1) 
#BIT8.(R1) 
#377.4(R1) 
.♦10 

#BIT12,(R2) 
20$ 
#BIT1.4(R1) 
.♦16 

#BIT13!BIT14,(R2) 
#BIT1.4(R2) 
20$ 

#BIT3.4(R1) 
20$ 

#BIT6,4(R1) 
#122113, 6(R1) 
#BIT8,(R1) 
#021264,6(R1) 
#8IT8,(R1) 
#BIT3.4(R1) 
20$ 

#BIT14,(R2) 
(R2) + 

#021324, 6CR1) 
#BIT9!8IT8,(R1) 
4(R1).(R2)+ 
#021 344. 6 (R1) 
#BIT8!8IT9.(R1) 
4(R1).(R2)+ 
CR2) + 
(R1) 
KMNUM 
#20, KMNUM 
13$ 
(R1) 
6(R1) 
#10,R1 
#164000,R1 
2$ 

KMACTV 
KMNUM 
5$ 

KMNUM. RI 
R1.SAVNUM 



CLEAR LINE UNIT LOOP 
CLEAR PORT 4 

LOAD INSTRUCTION (CLR DTR) 

CLOCK INSTRUCTION 

LOAD INSTRUCTION 

CLOCK INSTRUCTION 

IS IT ALL ONES? 

BR IF NO 

IF YES, NO LINE UNIT, SET STATUS BIT 

IS SWITCH A ONE? 
BR IF M8201 

;M8202 ASSUME CONNECTOR 
SET BIT1 IN STAT3 FOR HIGH SPEED MICRO-CODE... 
CONNECTOR ON) 
IS MRDY SET 

BR IF M8201 NO CONNECTOR (ON LINE) 

LOAD P0RT4 

LOAD INSTRUCTION 

CLOCK INSTRUCTI0N(SET DTR) 

LOAD INSTRUCTION 

CLOCK INSTRUCTION (READ MODEM REG) 

IS MRDY SET NOW? 

BR IF NO CONNECTOR 

SET STATUS BIT FOR CONNECTOR 

POP POINTER 

PUT INSTRUCTION IN P0RT6 
P0RT4 LU 15 

STORE DDCMP LINE # IN TABLE 
P0RT6 INSTRUCTION 
CLOCK'INSTR. 

STORE BM873 ADD IN TABLE 
POP OVER STAT3 
CLEAR R0MI 

UPDATE DEVICE COUNTER 

ARE MAX. NO. OF DEV FOUND? 

YES DON'T LOOK FOR ANY MORE. 

CLEAR BIT 10 

CLEAR SEL 6 

UPDATE CSR POINTER ADDRESS 

BR IF MORE ADDRESS TO CHECK. 

WERE ANY KMC1TS FOUND AT ALL? 

ERROR AUTO SIZER FOUND NO KMC 1 1 ' S IN THIS SYS. 

SAVE NUMBER OF DEVICES 



KMACTV 
KMACTV 
R1 
4$ 

#6,3#4 

KMACTV, SA VAC T 

VECMAP 

,MERR2 



.•GENERATE ACTIVE REGISTER OF DEVICES. 
;SET THE BIT 

BR IF MORE TO GENERATE 

RESTORE TRAP VECTOR 

SAVE ACTIVE REGISTER 

GO FIND THE VECTOR NOW. 

NOTIFY 0PR THAT NO KMC 1 1 ' S FOUND. 



08-JUN-78 07:54 PAGE 44 
CZKCGA.P1 1 08-JUN-78 07:53 POWER DOWN AND UP 





013200 


005000 








f 1 D 


21 3/ 


01 3202 


000000 

www 








HALT 


2138 


013204 


000776 

Wv * * W 








BR 


2139 


013206 


012716 

vie ■ V 


013102 




6S- 


MOV 


2140 


013212 


000002 








RTI 


2141 














2142 


01 3214 


000001 

WWW 1 






WHICH: 


1 


2143 


013216 


002 

Wb 


002 

Wfc 






.8YTE 


2144 


01 3220 


001306 








STMP4 


2145 














2146 


013222 


032737 


000001 

WWW 1 


001446 


VE CMAP : 


BIT 


2147 


013230 


001114 








ONE 


2148 


01 3232 


012737 


000340 


000022 




MOV 


2149 


01 3240 


012737 


013414 


000020 




MOV 


2150 


01 3246 


012702 


002100 

w ■ w 






MOV 


2151 


01 3252 


012700 


000300 

V w«^ w 






MOV 


2152 


013256 


012701 


000302 






MOV 


2153 


01 3262 


010120 






1$: 


MOV 


2154 


013264 


012721 


000004 






MOV 


2155 


013270 


022021 








CMP 


2156 


01 3272 


020127 


001 000 

W 1 wv 






CMP 


2157 


013276 


101771 








BL0S 


2158 


013300 


013737 


001470 


001276 




MOV 


2159 


013306 


006037 


001276 




2$: 


ROR 


2160 


013312 


103063 








BCC 


2161 


013314 


012704 


00001 2 






MOV 


2162 


013320 


016437 


013472 


177776 




MOV 


2163 


013^26 


011201 








MOV 


2164 


013330 


012761 


000200 


000004 

v v v w v * 




MOV 


2165 


013336 


012711 


00 1 000 






MOV 


2166 


01 3342 


012761 


121111 


000006 

V V V V V 




MOV 


2167 


013350 


012711 


001400 






MCV 


2168 


013354 


1 05200 






7$: 


INCB 


2169 


013356 


001376 








BNE 


2170 


013360 


162704 


000002 

WW W Wfc 






sue 


2171 


013364 


001404 








BE0 


2172 


013366 


016437 


013472 


1 77776 




MOV 


2173 


013374 


000767 








BR 


2174 


013376 


052762 


005300 


000002 


6$- 


BIS 


2175 


013404 


005011 






3$- 


CLR 


2176 


013406 


062702 


000010 

WW 1 V 






ADD 


2177 


013412 


000735 








BR 


2178 


013414 


051662 


000002 




4$: 


BIS 


2179 


013420 


042762 


000007 

WW W 1 


000002 

W W WL. 




BIC 


2180 


013426 
013432 


016405 


013474 






MOV 


2181 


006305 








ASL 


2182 


013434 


006305 








ASL 


2183 


013436 


006305 








ASL 


2184 


013440 


006305 








ASL 


2185 


013442 


042705 


1 70777 






BIC 


2186 


013446 


050562 


000002 






BIS 


2187 


013452 


022626 








CMP 


2188 


013454 


012716 


013404 






MOV 


2189 


013460 


000002 








RTI 


2190 


013462 


012737 


004134 


000020 


5$: 


MOV 


2191 


013470 


000207 








RTS 



E 5 
iES 
R0 



PAGE: 0056Ci 



.-2 

#14$. (SP) 



2.2 



#SW00.STRTSW 
5$ 

#340.a#22 

#4$,a*20 

#KM.MAP.R2 

#300. R0 

#302. R1 

R1,(R0)+ 

#4,(R1)+ 

(R0)+.(R1)+ 

R1,#1000 

1$ 

KMACTV.STMP0 

STMP0 

5$ 

#12.R4 

BRLVL(R4).PS 

(R2).R1 

#200.4 (R1) 

#BIT9.(R1) 

#121111. 6(R1) 

#BIT9IBIT8.(R1) 

R0 

.-2 

#2.R4 

6$ 

BRLVL(R4),PS 
7$ 

#5300. 2 (R2) 
(R1) 
#10.R2 
2$ 

(SP).2(R2) 

#7,2(R2) 

BRLVL+2(R4),R5 

R5 

R5 

R5 

R5 

#1 70777. R5 
R5.2(R2) 
(SP)+,(SP)+ 
#3$,(SP) 

#$SC0PE,a#20 

pr 



MAKE DATA LIGHTS ZERO 

STOP THE SHOW 

DISABLE C0NT. SW. 

ENTERED BY N0N-EXISTANT TIME-OUT. 

RETUfsN TO MAINSTREAM 



SET I0T TRAP PRI0 TO 7 
SET I0T TRAP VECTOR 
SET SOFTWARE POINTER 
FLOATING VECTORS START HERE. 
PC OF I0T INSTR. 
START FILLING VECTOR AREA 
WITH .+2; I0T 
ADD 2 TO R0 +R1 

BR IF MORE TO FILL 
STORE TEMPORALLY 
BRING OUT A BIT 
BR IF ALL DONE 
R4 IS INDEX REGISTER 
SET PS TO 7 



SET ROMI 

PUT INSTRUCTION IN P0RT6 
FORCE AN INTERRUPT 
STALL 

FOR TIME TO INTERUPT 
GET NEXT LOWEST PS LEVEL 
BR IF R4 = 0 

MOVE NEXT LOWER LEVEL IN PS 
BR TO DELAY 

NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX KMC 11 
CLEAR ROMI 

POP SOFTWARE POINTER 
KEEP GOING 
GET VECTOR ADDRESS 
CLEAR JUNK 

GET BR LEVEL OF KMC 11 
SHIFT LEVEL 4 PLACES 
TO THE LEFT FOR THE 
STATUS TABLE 

CLEAR UNWANTED BITS 
PUT BR LEVEL IN STATUS TABLE 
POP I0T JUNK OFF STACK 
SET FOR RETURN 



; RESTORE SCOPE VECTOR 

;ALL DONE WITH ' AUTO SIZING" 
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2-192 










2193 


013472 


000000 






2194 


013474 


000000 






2195 


013476 


000200 






2196 


013500 


000240 






2197 


013502 


000300 






2198 


013504 


000340 






2199 










2200 










2201 


013506 


105777 


165532 




2202 


013512 


100375 






2203 


013514 


017703 


165526 




2204 


013520 


105777 


165524 




2205 


013524 


100375 






2206 


013526 


010377 


165520 




2207 


013532 


042703 


000240 




2208 


013536 


000207 






2209 










2210 


013540 








2211 


013540 


000005 






2212 


013542 


010046 






2213 


013544 


010146 






22K 


013546 


010246 






2215 


013550 


010346 






2216 


013552 


005037 


013754 




2217 


013556 


005037 


013760 




2218 


013562 


013700 


001 376 




2219 


013566 


010037 


001476 




2220 


013572 


012701 


001346 




2221 


013576 


013737 


001372 


013756 


2222 


013604 


113737 


001366 


013754 


2221 


013612 


113737 


001367 


013760 


222<t 


013620 


013737 


001374 


001470 


2225 


013626 


013737 


001470 


001474 


2226 


013634 


012702 


001402 




2227 


013640 


012703 


002100 




2228 


013644 


005023 






2229 


013646 


022703 


002300 




2230 


013652 


003374 






2231 


013654 


012703 


002100 




2232 


013660 


013723 


013756 




2233 


013664 


112163 


000001 




2234 


013670 


006213 






2235 


013672 


006213 






2236 


013674 


053713 


013760 




2237 


013700 


006313 






2238 


013702 


006313 






2239 


013704 


006313 






2240 


013706 


006313 






2241 


013710 


053723 


013754 




2242 


013714 


012223 






2243 


013716 


005723 






2244 


013720 


005300 






2245 


013722 


001407 






2246 


013724 


062737 


000010 


013756 


2247 


013732 


062737 


000010 


013754 



F 5 



PAGE : 005 PC 



.•LEVEL 
; LEVEL 
.•LEVEL 
.-LEVEL 
.-LEVEL 
.•LEVEL 



0 
0 
4 
5 
6 
7 



a$TKS 
.-4 

3STKB.R3 

a$rps 

.-4 

R3,a$TPB 

#BIT7.'8IT5.R3 

PC 



.-WAIT FOR DONE 

;PUT CHAR IN R3 

.-WAIT UNTIL PRINTER IS READY 

ECHO CHAR 

MASK OFF LOWER CASE 
RETURN 



RO.-(SP) 

R1,-(SP) 

R2.-(SP) 

R3.-(SP) 

VECTR 

PRIRTY 

SCDW1 ,R0 

RO.SAVNUM 

#SMAMS1,R1 

S8ASE.3ASE 

SVECT1. VECTR 

SVECTH1, PRIRTY 

SDEVM,KMACTV 

KMACTV.SAVACT 

#$DDW0,R2 

#KM.MAP.R3 

(R3) + 

#KM.END.R3 
3$ 

tKM.MAP.R3 

BASE,(R3)+ 
(RD + .KR3) 
(R3) 
(R3) 

PRIRTY, (R3) 

(R3) 

(R3) 

(R3) 

(R3) 

VECTR. (R3)+ 

(R2)+.(R3)+ 

(R3) + 

RO 

2$ 

#10,BASE 
#10. VECTR 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

CLEAR THE LOCAL VARIABLE 

CLEAN UP LOCAL VARIABLE 

GET THE DEVICE COUNT 

SAVE THE NO. OF DEVICES 

GET EXTRA INFO, BITS POINTER 

GET BASE CSR ADDRESS 

GET THE VECTOR 

GET THE PRIORITY 

SAVE THE KMC'S SELECTED ACTIVE 

SAVE THE ACTIVE REGISTER 

GET ADDRESS OF FIRST DEVICE DESCRIPTOR WORD 

GET POINTER TO DEVICE MAP 

CLEAR DEVICE MAP 

IS WHOLE DEV. MAP CLEARED? 

NO, THEN GO ON. 

RESTORE DEV. MAP POINTER. 

LOAD CSR ADDRESS 

GET EXTRA INFO. BITS 

SET IT IN RIGHT POSITION. 

SET IT IN RIGHT POSITION. 

GET PRIORITY IN STAT1 

SET THEM IN RIGHT POSITION 



GET THE VECTOR IN STAT1 . 
GET THE STAT2 FROM DDWXX 
SKIP OVER STAT3 
COUNT BY 1 
ALL DONE? 

INCREMENT BASE CSR ADDRESS BY 10 
INCREMENT VECTOR ADDRESS BY 10 
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2248 013740 000747 

2249 013742 

2250 013742 012603 

2251 013744 012602 

2252 013746 012601 

2253 013750 012600 

2254 013752 000207 

2255 013754 000000 

2256 013756 000000 

2257 013760 000000 



g — 5 

POWER DOWN AND UP ROUTINES 

BR H 

2$: 

MOV (SP)+.R3 

MOV (SP)*.R2 

MOV (SP)*,R1 

MOV (SPH.RO 

RTS PC 

VECTR: .WORD 0 

BASE: .WORD 0 

PRIRTY: .WORD 0 



; SET THE NEXT MAP ENTRY 



POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 
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H 5 



f REE RUNNING TESTS 



PAGE: 0059Ci 



2258 








2259 








2260 








2261 








2262 








2263 








2264 








2265 








2266 








2267 








2268 








2269 








2270 








2271 








2272 








2271 








227i, 


013762 
013764 


000004 




2275 


012737 


000001 


227b 


013772 


012737 


01 5006 


2277 








2276 








2279 


014000 


004737 


022474 


2280 


014004 


013700 


021360 


2281 


014010 


062700 


000002 


2282 


014014 


012702 


021362 


2283 


014020 


105022 




2284 


014022 


005300 




2285 


014024 


001375 




2286 


014026 


005037 


021306 


2287 


014032 


005037 


021310 


2288 


014036 


012711 


040000 


2289 








2290 








2291 


014042 


012711 


100000 


2292 


014046 


105227 


000000 


2293 


014052 


001375 




2294 


014054 


005037 


011122 


2295 


014060 


005711 




2296 


014062 


100405 




2297 


014064 


005237 


011122 


2298 


014070 


001373 




2299 


014072 


104014 




2300 


014074 


000771 




2301 


014076 


052711 


004043 


2302 


014102 


005037 


011122 


2303 


014106 


105711 




2304 


014110 


100404 




2305 


014112 


005237 


011122 


2306 


014116 


rtrt 4 TIT 

001373 




2307 


014120 


104014 




2308 


014122 


012761 


021430 


2309 


014130 


005061 


000006 


2310 


014134 


142711 


000040 


2311 


014140 


005037 


011122 


2312 


014144 


105711 




2313 


014146 


100020 





*************************** TEST 1 *************************** 

♦FREE RUNNING FLAG MODE DATA TEST 

♦TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA 

*LINE UNIT LOOP IS SET FOR THIS TEST. 

*ALL FOLLOWING TESTS ARE FREE RUNNING AND ARE PERFORMED 

♦ONLY ON KMC'S WITH LINE UNITS. IF YOU WISH TO PERFORM 

♦THESE FREE RUNNING TESTS ON A KMC (NORMALLY THE FREE RUNNING TESTS 

♦WILL RUN BY LOADING AND STARTING DZKCG 

♦ WITH SWITCH 7 = 1 

: ************************************************************* 

TEST 1 



TST1 : 



, *********************** 

SCOPE 

MOV #1,$TSTNM 
MOV #TST2,NEXT 



10$: 



1$: 



2$: 



3$: 



$SKIPT 

JSR 

MOV 

ADD 

MOV 

CLR8 

DEC 

BNE 

CLR 

CLR 

MOV 

BIT 

BEO 

MOV 

INC8 

BNE 

CLR 

TST 

BMI 

INC 

BNE 

ERROR 

BR 

BIS 

CLR 

TST8 

BMI 

INC 

BNE 

ERROR 

MOV 

CLR 

BIC8 

CLR 

TST8 

BPL 



14$ 

PCLDRVRF 

RCOUNT.RO 

#2.R0 

#RBUF.R2 

(R2>* 

RO 

10$ 

TFLAG 

RFLAG 

#BIT14.(R1> 

#BIT15,STAT1 

.♦6 

#BIT15.(R1> 

#0 

.-4 

TEMP 

(R1) 

.♦14 

TEMP 

1$ 

14 

1$ 

#4043, (R1) 

TEMP 

(R1) 

.♦12 

TEMP 

2$ 

14 

#BASEMC,4(R1) 

6(RD 

#40. (R1) 

TEMP 

(R1) 

8$ 



*********************************** 

; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC 11 ADDRESS 

FIRST TEST LOAD & VERIFY. 
CLEAR RECEIVER BUFFER 
CLEAR 2 MORE LOCATIONS 
CLEAR OUT RECEIVE BUFFER 
CLEAR BUFFER 
DONE YET! 
NO 

SET TFLAG TO 0 
SET RFLAG TO 0 
MASTER CLEAR 
CRAM? 
BR IF NO 
IF CRAM SET RUN 
DELAY- 
DELAY 

GET SET TO DELAY 
RUN SET? 
BR IF YES 
INC DELAY 
BR IF NOT DONE 
ERROR RUN NOT SET 
TRY AGAIN 
BASEMC I. LU LOOP 
GET SET TO DELAY 
RDI SET? 
8R IF YES 
INC DELAY 
BR IF NOT DONE 
ERROR, RDI NOT SET 
SET UP BASEMC ADDRESS 
CLEAR COUNT 
CLEAR ROI 
GET SET TO DELAY 
IS RDI GONE? 
8R IF YES 
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2314 


014150 


005237 


011122 






INC 


2315 


014154 


001373 








BNE 


2316 


014156 


105761 


000002 






TST8 


2317 


014162 


100011 








BPL 


2318 


014164 


016137 


000004 


001 302 




MOV 


2319 


014172 


016137 


000006 


001304 




MOV 


2320 


014200 


104016 








ERROR 


2321 


014202 


000137 


015006 






JMP 


2322 


014206 


104014 






18$: 


ERROR 


2323 


014210 








8$: 




2324 


014210 


152711 


000041 






BJS8 


2325 


014214 


105711 






64$: 


TST8 


2326 


014216 


100376 








BPL 


2327 


014220 


005061 


000006 






CLR 


2328 


014224 


142711 


000040 






BIC8 


2329 


014230 


105711 






65$: 


TST8 


2330 


014232 


100776 








BMI 


2331 


014234 


152711 


000044 






BIS8 


2332 


014240 


005037 


011122 






CLR 


2333 


014244 


105711 






4$: 


TST8 


2334 


014246 


100404 








BMI 


2335 


014250 


005237 


011122 






INC 


2336 


014254 


001373 








BNE 


2337 


014256 


104014 








ERROR 


2338 


014260 


012761 


021 362 


000004 




MOV 


2339 


014266 


013761 


021360 


000006 




MOV 


2340 


014274 


142711 


000040 






BIC8 


2341 


014300 


005037 


011122 






CLR 


2342 


014304 


105711 






5$: 


TST8 


2343 


014306 


100004 








BPL 


2344 


014310 


005237 


011122 






INC 


2345 


014314 


001373 








BNE 


2346 


014316 


104014 








ERROR 


2347 


014320 


152711 


000040 






BIS8 


2348 


014324 


005037 


011122 






CLR 


2349 


014330 


105711 






6$: 


TSTB 


2350 


014332 


100404 








BMI 


2351 


014334 


005237 


011122 






INC 


2352 


014340 


001373 








BNE 


2353 


014342 


104014 








ERROR 


2354 


014344 


012761 


021314 


000004 




MOV 


2355 


014352 


013761 


021312 


000006 




MOV 


2356 


014360 


142711 


000040 






BIC8 


2357 


014364 


005037 


011122 






CLR 


2358 


014370 


105711 






7$: 


TSTB 


2359 


014372 


100004 








BPL 


2360 


014374 


005237 


011122 






INC 


2361 


014400 


001373 








BNE 


2362 


014402 


104014 








ERROR 


2363 


014404 


005037 


011122 




16$: 


CLR 


2364 


014410 


012737 


000022 


001276 




MOV 


2365 


014416 


105761 


000002 




11$: 


TSTB 


2366 


014422 


100407 








BMI 


2367 


014424 


005237 


011122 






INC 


2368 


014430 


001372 








BNE 


2369 


014432 


005337 


001276 






DEC 



I 5 i 

PAGE : 0060Ci 



TEMP ; 


INC DELAY 


3$ 


RR IF NOT DONF 


2(R1) 


IS THERE A CNTL 0 ERROR 


18$ 


BR IF NO 


4(R1).$TMP2 


SAVE SEL4 FOR TYPEOUT 


6(R1).$TMP3 


SAVE SEL6 FOR TYPEOUT 


16 


CNTL 0 ERROR 


14$ 


FATAL ERROR STOP 


14 


ERROR RDI STILL SET 


#41. (R1) 


ASK FOR CNTL I 


(R1) 


WAIT FOR RDI 


64$ 


8R IF NOT SETY 


6(R1) 


SET FULL DUPLEX 


#40, (RD 


CLEAR RQI 


(R1) 


RDI UP? 


65$ 


•BR IF YES 


#44, (R1) 


REC BA/CC 


TEMP 


GET SET TO DELAY 


(R1) 


IS RDI SET? 


.+12 


BR IF YES 


TEMP 


INC DELAY 


4$ 


,-8R IF DELAY NOT DONF 


14 


; ERROR RDI NOT SET 


#RBUF ,4(RD 


.LOAD REC BA 


RC0UNT,6(R1) 


,-LOAD REC COUNT 


#40. (R1 ) 


; CLEAR RQI 


TEMP 


;GET SET TO DELAY 


(R1) 


;RDI GONE? 


.♦12 


;8R IF YES 


TEMP 


INC DELAY 


5$ 


,BR IF NO DONE 


14 


; ERROR RDI STILL SET 


#40, (R1) 


;XMIT BA/CC 


TEMP 


;GET SET TO DELAY 


(R1) 


;RDI SET? 


.+12 


;BR IF YES 


TEMP 


,INC DELAY 


6$ 


,-BR IF NOT DONE 


14 


; ERROR RDI NOT SET 


#TBUF,4(R1) 


,-LOAD XMIT BUFFER 


TC0UNT,6(R1) 


;LOAO COUNT 


#40. (RD 


; CLEAR RQI 


TEMP 


;GET SET TO DELAY 


(RD 


;RDI GONE? 


.♦12 


;BR IF YES 


TEMP 


;INC DELAY 


7$ 


;8R IF NOT DONE DELAY 


14 


. cnnno DINT CTTI 1 CCT 

ERROR RDI STILL SET 


TEMP 


;GET SET TO DELAY 


#22,$TMP0 


;GET SET FOR LONG DELAY 


2(RD 


•RDO SET? 


17$ 


BR IF YES 


TEMP 


;INC DELAY 


11$ 


BR IF DELAY NOT DONE 


$TMPO 


■DEC DELAY COUNT 
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2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 



014436 
014440 
014442 
014450 
014452 
014454 
014462 
014464 
014470 
014472 
014474 
014502 
014510 
014512 
014514 
014522 
014524 
014526 
014534 
014536 
014540 
014546 
014550 
014554 
014556 
014560 
014566 
014574 
014576 
014600 
014606 
014610 
014612 
014620 
014622 
014624 
014630 
014634 
014640 
014644 
014646 
014650 
014652 
014654 
014656 
014660 
014662 
014664 
014666 
014670 
014676 
014702 
014704 
014710 
014712 
014716 



001367 
104014 
016137 
001001 
104014 
032761 
001032 
005737 
001401 
104014 
012737 
132761 
001401 
104014 
022761 
001401 
104014 
023761 
001401 
104014 
142761 
000453 
005737 
001401 
104014 
012737 
132761 
001401 
104014 
022761 
001401 
104014 
023761 
001401 
104014 
013700 
012702 
012703 
010337 
112205 
112304 
120504 
001401 
104013 
005300 
001367 
005713 
001401 
104014 
142761 
005737 
001640 
005737 
001635 
004737 
012700 



000002 

000004 
021306 



177777 
000001 



021314 

021312 

000207 
021310 



1 77777 
000001 



021362 
021360 



021360 
021314 
021362 
001302 



000207 
021310 

021 306 

022442 
014744 



001300 
000002 



021 306 
000002 



000004 
000006 
000002 



021310 
000002 



000004 
000006 



17$: 



12$: 



13$: 



9$: 



000002 



15$: 



BNE 

ERROR 

MOV 

BNE 

ERROR 

BIT 

BNE 

TST 

BEQ 

ERROR 

MOV 

BIT8 

BEQ 

ERROR 

CMP 

BEQ 

ERROR 

CMP 

BEQ 

ERROR 

BICB 

BR 

TST 

BEQ 

ERROR 

MOV 

BITS 

BEQ 

ERROR 

CMP 

BEQ 

ERROR 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

MOV 

M0V8 

M0V8 

cmpb 

BEQ 

ERROR 

DEC 

BNE 

TST 

8EQ 

ERROR 

81 CB 

TST 

BEQ 

TST 

BEQ 

JSR 

MOV 



PAGE: 0061 C2 



11$ 


8R JF NOT DONE DELAY 


14 


ERROR RDO NOT SET 


2(R1).$TMP1 


SAVE SEL2 


.♦4 


BR IF OK 


14 


ERROR! .' ! SEL2 - 0. . ! . . 


#BIT2,2(R1) 


REC OR XMiT? 


13$ 


BR IF REC 


TFLAG 


FIRST TIME HERE? 


■ ♦4 


BR IF YES 


14 


ERROR MULTIPLE XMIT DONES 


#-1 , TFLAG 
#BIT0,2(R1> 


SET TFLAG TO -1 


IS IT CONTROL 0 


• ♦4 


BR IF NO 


14 


XMIT ERROR 


#TBUF.4(R1) 


XMIT 3A CORRECT'' 


.♦4 


BR IF YES 


14 


XMIT BA ERROR 


TC0UNT.6(R1) 


■COUNT OK? 


.♦4 


BR IF YES 


14 


XMIT COUNT ERROR 


#207.2(R1) 


CLEAR RDO AND BITS 0-2 


15$ 


•CONTINUE 


RFLAG 


;FIRST TIME HERE? 


.♦4 


,BR IF YES 


14 


; ERROR MULTIPLE REC DONES 


#-1 .RFLAG 


;SET RFLAG TO -1 


#8IT0.2(R1) 


;IS IT CNTL 0 


.♦4 


;8R IF NO 


14 


.RECEIVE ERROR 


#RBUF ,4(R1) 


;REC BA CORRECT? 


,♦4 


;BR IF YES 


14 


;REC BA ERROR 


RC0UNT.6(R1 ) 


.•COUNT OK? 


.♦4 


,BR IF YES 


14 


;REC COUNT ERROR 


RCOUNT,R0 


;GET SET TO CHECK DATA 


#T8UF.R2 


,R2 POINTS TO GOOD DATA 


*RBUF.R3 


;R3 POINTS TO RECEIVE DATA 


R3,$TMP2 

(R2)+.R5 


.SAVE ADDRESS FOR TYPEOUT 


;R5 = XMIT DATA 


(R3)*.R4 


;R4 = RECFIVE DATA 


R5.R4 


.CHECK DATA 


.♦4 


,BR IF OK 


13 


;DATA ERROR 


RO 


;DEC COUNT 


9$ 


,BR IF NOT DONE 


(R3) 


,-THIS SHOULD BE 0. ELSE 


.+4 


•IT RECEIVED TO MUCH! ! 


1 A 


1 ERROR 


#207,2(R1) 


•CLEAR RDO AND BITS 0-2 


RFLAG 


:REC DONE? 


16$ 


;BR IF NO 


TFLAG 


XMIT DONE? 


16$ 


;BR IF NO 


PC. SHUTDOWN 


; SHUTDOWN KMC 


#25$. RO 


.•POINTER TO EXPECTED SOFT COUNTS 
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2426 


014722 


012701 


021433 




2427 


014726 


012702 


000010 




2428 


014732 


122021 






2429 


014734 


001007 






2430 


014736 


005302 






2431 


014740 


001374 






2432 


014742 


000421 






2433 


014744 


000 


000 


000 


2434 


014747 


000 


000 


000 


2435 


014752 


000 


000 




2436 


014754 


1 1 3737 


021433 


001 300 


2437 


014762 


113737 


021435 


001 302 


2438 


014770 


113737 


021437 


001304 


2439 


014776 


4 4 V1V ""» 

113737 


021441 


0C1306 


2440 


015004 


10401 7 






2441 


01 5006 








2442 


015006 








2443 










2444 










2445 










2446 










2447 










2448 










2449 










2450 










2451 










2452 










2453 










2454 


015006 


000004 






2455 


01 5010 


012737 


000002 


/\rt4 ^rt*^ 

001 202 


2456 


015016 


012737 


01 5200 


001442 


2457 










2458 










2459 


01 5024 


004737 


022030 




2460 


01 5030 


004537 


022410 




2461 


015034 


021314 






2462 


015036 


000044 






2463 


01 5040 


012700 


000010 




2464 


015044 


01 2703 


000015 




2465 


015050 


005037 


011122 




2466 


015054 


105761 


000002 




2467 


015060 


100407 






2468 


015062 


005237 


f\ 4 4 4 ^ 

011122 




2469 


015066 


001372 






2470 


01 5070 


005303 






2471 


01 5072 


/\/\ 4 9TIA 

001370 






2472 


01 5074 


104014 






2473 


015076 


000431 








A1 C 1 AA 


13<?/ r 61 


AAAAA 1 
UUUUO 1 


AAAAA O 


2475 


015106 


001002 






2476 


015110 


104014 






2477 


015112 


000423 






2478 


015114 


012705 


000004 




2479 


015120 


016104 


000006 




2480 


015124 


020504 






2481 


015126 


001404 









MAW 

nuv 






POINTER TO ACTUAL COUNTS 




MOV 


#10.R2 




COUNT 


22$: 


CMP8 


(R0)*.(R1)* 




•COMPARE SOFT ERROR COUNTS 


BNE 


23$ 




•IF ERROR BR 23$ 




DEC 


R2 




•d:c count 




BNE 


22$ 




•CONTINUE CHECKING IF NOT DONE 




BR 


24$ 




ALL COUNTS OK. GET OUT 


25$: 


• BYTE 


0.0,0.0.0.0.0,0 


.EXPECTED ERROR COUNTS 



23$: 



2<.$: 
14$: 



MOVB 
MOVB 
MOVB 
MOVB 
ERROR 

; SCOPE 



BASEMC+3.$TMP1 

BASEMC+5,$TMP2 

BASEMC+7.$TMP3 

BASEMC+11.$TMP4 

17 



.•SCOPE THIS TEST 



-*************************** TEST 2 *************************** 
;*OVERUN TEST 

;*IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE 
.••BUFFER AVAILABLE. VERIFY THAT AN OVERRUN ERROR OCCURS 

;;************************************************************* 

; TEST 2 

*************************************************************** 



TST2: 



1$: 



1 1$: 



SCOPE 




MOV 


#2.$TSTNM 


MOV 


#TST3.NEXT 


$SKIPT 


10$ 


JSR 


PC.BASELD 


JSR 


R5.XFRELD 


TBUF 




44 




MOV 


#10. RO 


MOV 


#15. R3 


CLR 


TEMP 


TSTB 


2(R1) 


BMI 


.+20 


INC 


TEMP 


BNE 


1$ 


DEC 


R3 


BNE 


1$ 


ERROR 


14 


BR 


10$ 


BIT8 


#BIT0,2(R1) 


BNE 


11$ 


ERROR 


14 


BR 


10$ 


frov 


#BIT2,R5 


MOV 


6(R1),R4 


CMP 


R5.R4 


BEO 


12i 



; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 

.-LOAD KMC BASEMC ADDRESS 
LOAD XMIT BA/CC 
BA 

CC 

RO = RETRANSMISSION COUNT 

DELAY COUNT 

CLEAR DELAY COUNTER 

IS RDY 0 SET? 

BR IF SET 

INC DELAY COUNTER 

BR IF NOT DONE DELAY 

DEC DELAY COUNT 

BR IF DELAY NOT DONE 

ERROR. RDY 0 NOT SET 

GET OUT 

IS IT CNTL 0? 

BR IF YES 

ERROR, NOT CNTL 0 

CONTINUE 

PUT 'EXPECTED" IN R5 
PUT "FOUND" IN R4 
IS ORUN SET? 
BR IF YES 
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FREE RUNNING 


TESTS 




CMOc 


hi ^1 xn 


Veer Wi 


UVvVU I 






CMP 


#1,R4 


DATA CK ERROR? 


CHOJ 


V 1 J 1 J*» 


ftrtl A1 T 








BEQ 


13$ 


BR IF YES 


T/ ft/ 


m ?1 xa. 

Ul J I jO 


1 U*tv 1 J 








ERROR 


15 


ERROR. 0RUN NOT SET 


PARC 


ni ^1 ao 


AA37A1 
VHCf O I 


VVSJcVr 


A A A A A ^ 

000002 


12$: 


BIC 


#207.2(R1) 


CLEAR RD0 


9 AHA 
CHOO 


ni <«1 aa 
U I J i*»o 




U I I Ice 






CLR 


TEMP 


RESET DELAY 


3A87 


U\J\JC 










DEC 


RO 


DEC RETRANS COUNT 


CHOO 


01S15A 
U 1 J 1 J** 


VV I JJ' 








BNE 


1$ 


C0UNTINUE 


OA HQ 
C*»07 


m ca 

U I J I JO 




nil// 5 

UccHHc 






JSR 


PC. SHUTDOWN 


SHUTDOWN KMC 




01 51 A? 

vl J 1 Oc 


^c^LL'>c\ 

1 W*HC\J 






10$: 


ADVANCE 




SCOPE THIS TEST 


?491 




04?7r>1 


ono?07 


000002 


13$: 


BiC 


#207.2(R1) ! 


IGNOR THIS ERROR 


?49? 
chtc 


015172 


005037 


0111?? 

vl 1 ICC 






CLR 


TEMP , 


RESET DELAY 


cwij 


m <1 7 a 


UUU^ CD 








BR 


1$ 


•CONTINUE 


2 A OA 


















CH7J 


















2496 












**************************** ]rST 3 *************************** 


5A0.7 
CH7f 












;*L0ST 


DATA TEST 




C**70 












;*IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE 














; *8UFFER. VERIFY THAT A LOST DATA ERROR OCCURS. 


2500 












•;******************************************************»»*»*** 


2501 






























; TEST 


3 
















• 


















2505 

C J\J J 


01 5?00 

V 1 JCv\J 


000004 






TS T3: 


SCOPE 






?50* 


01 5?0? 

v 1 JCvc 


oi?7^7 


000003 


001 202 




MOV 


#3.$TSTNM 


; LOAD THE NO. OF THIS TEST 


?507 


01 5?10 

v 1 JC 1 V 


01?7X7 

VIC' Jf 


01S 7 3A 


001442 




MOV 


#TST4.NEXT 


; POINT TO THE START OF NEXT TEST. 


?508 
















R1 CONTAINS BASE KMC11 ADDRESS 


?509 


015?1* 


104410 








MSTCLR 


.•MASTER CLEAR KMC1 1 












» 


$SKIPT 


10$ 




?51 1 


01 s??o 


004737 

WH f Jf 


0??030 






JSR 


PC.BASELD 


.LOAD KMC BASEMC ADDRESS 


?51? 


01 5??4 


004537 

JJ f 


0??35A 

\JCCJJ\J 






ICQ 


R5.RFRELD 


;L0AD RECEIVE BA/CC 


?51 3 


01 5?30 

v 1 JCJyJ 










R6UF 


;8A 


?514 


015?3? 

v 1 JCJC 


v/Wvt V 








20 




•cc 


2515 

C V 1 J 


015?34 


J J f 


0??410 

V/C tl IU 






JSR 


R5,XFRELD 


rLOAD XMIT BA/CC 


25 "i^ 


01 5?40 










T8UF 


:BA 


?517 

C J 1 ' 


015242 

V/ 1 JC^C 


000044 








44 




;CC 


?518 


01 5?44 

V 1 JCHH 


01?703 

V 1 C f \JJ 


00001 S 

WVv 1 J 






MOV 


#15.R3 


; DELAY COUNT 


?519 


015?50 

V 1 JC j\j 


005037 

\J\J J\fJ t 


01 1 1?? 
Ul 1 1 cc 






CLR 


TEMP 


; CLEAR DELAY COUNTER 


2520 

£ JC\f 


015?54 

v 1 JC J*i 


1057^1 

1 v J f D 1 


00000? 




1$: 


TST8 


2(R1) 


rIS RDY 0 SET? 


?5?1 
C jc 1 


01 5?f»0 

V/ 1 JCvw 


100407 








BMI 


.♦20 


•BR IF SET 


25?? 

C JCC 


015?6? 

v 1 JCVC 


OOS?37 

\J\JJC-Ji 


01 1 1 ?? 






INC 


TEMP 


INC DELAY COUNTER 


?S?^ 

C JCJ 


01 5?*/» 


001 37? 

w \ Jl c 








BNE 


1$ 


BR IF NOT DONE DELAY 


?5?4 


015?70 


005303 








DEC 


R3 


DEC DELAY COUNT 


2525 

£ JC J 


015?7? 

V 1 JC f c 


001370 








BNE 


1$ 


;BR IF DELAY NOT DONE 


252A 


015?74 

V 1 JC f ** 


104014 








ERROR 


14 


ERROR. RDY 0 NOT SET 


PSP7 


01 5?76 


000417 








BR 


10$ 


•GET OUT 


C JCsJ 


01 5300 


1 3?7A1 

1 JC ' 0 1 


000001 


000002 




BITS 


#8IT0,2(RD 


IS IT CNTL 0? 


?529 


0153OA 


00100? 








BNE 


11$ 


BR IF YES 


2530 


015310 


104014 








ERROR 


14 


ERROR NOT CNTL 0 


2531 


015312 


000411 








BR 


10$ 


CONTINUE 


2532 


015314 


012705 


000020 




11$: 


MOV 


#BIT4.R5 


PUT ' tXPECTED" IN R5 


2533 


015320 


016104 


000006 






MOV 


6(R1).R4 


PUT "FOUND" IN R4 


2534 


015324 


020504 








CMP 


R5.R4 


IS LOST DATA SET? 


2535 


015326 


001401 








BEQ 


12i 


BR IF YES 


2536 


015330 


104015 








ERROR 


15 


ERROR. LOST DATA NOT SET 


2537 


015332 


004737 


022442 




12$: 


JSR 


PC, SHUTDOWN 


SHUTDOWN KMC 
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2538 


015336 






2539 








2540 








2541 








2542 








2543 








2544 








2545 








2546 








2547 








2548 








2549 








2550 


015336 


000004 




2551 


015340 


012737 


000004 


2552 


015346 


012737 


015464 


2553 








2554 


015354 


104410 




2555 








2556 


015356 


004737 


022030 


2557 


015362 


004537 


022410 


2558 


015366 


1 77320 




2559 


015370 


140044 




2560 


01 5372 


r\ 4 "\ 7A7 

012703 


000015 


2561 


015376 


AAf A77 

005037 


rt4 4 4 1 

01 1 122 


2562 


01 5402 


4 An/ 4 

105761 


000002 


2563 


/\4 C J f\£ 

015406 


100^07 




2564 


015410 


005237 


011122 


2565 


015414 


001372 




2566 


/\ 4 c / 4 v 

015416 


005303 




2567 


01 5420 


/\A4 77A 

001370 




2568 


015422 


104014 




2569 


015424 


000417 




2570 


01 5426 


1 32761 


M\M\t\f\f\ 4 

000001 


2571 


015434 


001002 




2572 


015436 


104014 




2573 


01 5440 


00041 1 




2574 


015442 


012705 


000400 


2575 


01 5446 


016104 


000006 


2576 


015452 


020504 




2577 


015454 


001401 




2578 


015456 


104015 




2579 


01 5460 


004737 


022442 


2580 


015464 






2581 








2582 








2583 








2584 








2585 








<: joO 








2587 








2588 








2589 








2590 








2591 








2592 


015464 


000004 




2593 


015466 


012737 


000005 



FREE RUNNING 
10$: 



TST4 



IS: 



11$: 



10$: 



TST5 



.SCOPE 



.•SCOPE THIS TEST 



;******************•******** TEST 4 *************************** 
; *TRANSMI T NON-EXISTENT MEMORY TEST 

;*IN FREE RUNNING MODE. LOAD A TRANSMIT BA THAT WILL TIME OUT 
; * VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 
;:*******************************************************••***• 

; TEST 4 



SCOPE 






unit 

MOV 


#4.$TSTNM 


; LOAD THE NO. OF THIS TEST 


MUV 


#TST5.NEXT 


; POINT TO THE START OF NEXT 




;R1 CONTAINS BASE KMC11 ADDRESS 


iiC Tn D 

Mo 1 CLR 


.•MASTER CLEAR KMC 11 


CCV TOT 


10$ 




1 CD 

J on 


or dacpi n 


• i riAh rMr oACCMr atmndccc 
.LUMP WIl OAOtrH. Al/UKtoo 


1 CD 

Jon 


R5.XFRELD 


LOAD XMIT BA/CC 


iff jiU 




BA 


1 Lt\t\LL 




CC 


nov 


#15.R3 


; DELAY COUNT 




TEMP 


; CLEAR DELAY COUNTER 


TST8 


2(RD 


;IS RDY 0 SET? 


BMI 


.♦20 


•BR IF SET 


INC 


TEMP 


INC DELAY COUNTER 


BNE 


1$ 


BR IF NOT DONE DELAY 


DEC 


R3 


rDEC DELAY COUNT 


BNE 


1$ 


;BR IF DELAY NOT DONE 


ERROR 


14 


; ERROR. RDY 0 NOT SET 


BR 


10$ 


;GET OUT 


BITS 


*8IT0,2(RU 


;IS IT CNTL 0? 


BNE 


11$ 


BR IF YES 


ERROR 


14 


ERROR. NOT CNTL 0 


BR 


10$ 


•CONTINUE 

PUT 'EXPECTED" IN R5 
;PUT 'TOUND" IN R4 


MOV 


#BIT8,R5 


MOV 


6(R1).R4 


CMP 


R5.R4 


•IS NON-EX-MEM SET? 


BE0 


.♦4 


BR IF YES 


ERROR 


15 


ERROR NON-EX-MEM NOT SET 


JSR 


PC. SHUTDOWN 


• SHUTDOWN KMC 


.-SCOPE 


SCOPE THIS TEST 



• *************************** JEST 5 ************************ 
} 'RECEIVE NON-EXISTENT MEMORY TEST 

;*IN FREE RUNNING MODE, LOAD A RECEIVE BA THAT WILL TIME OUT 
.♦VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 



; TEST 5 



SCOPE 

MOV #5.$TSTNM 



LOAD THE NO. OF THIS TEST 
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2594 

2595 

25% 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

261 C 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 



015474 012737 015622 001442 



015502 104410 



015504 
015510 
015514 
015516 
015520 
015524 
015526 
015530 
015534 
015540 
015544 
015546 
015552 
015554 
015556 
015560 
015562 
015564 
015572 
015574 
015576 
015600 
015604 
015610 
015612 
015614 
015616 
015622 



015622 
015624 
015632 



004737 
004537 
177320 
140044 
004537 
021314 
000044 
012703 
005037 
105761 
100407 
005237 
001372 
005303 
001370 
104014 
000417 
132761 
001002 
104014 
000411 
012705 
016104 
020504 
001401 
104015 
004737 



FREE RUNNING TESTS 
MOV 



022030 
022356 



022410 



000015 
011122 
000002 

011122 



000001 000002 



000400 
000006 



022442 



IS: 



11$: 



10$: 



MSTCLR 

$SKIPT 

JSR 

JSR 

177320 

140044 

JSR 

T8UF 

44 

MOV 

CLR 

TST8 

BMI 

INC 

BNE 

DEC 

BNE 

ERROR 

BR 

BITB 

BNE 

ERROR 

BR 

MOV 

MOV 

CMP 

BEQ 

ERROR 

JSR 

; SCOPE 



N 5 



#TST6.NEXT 



10$ 

PCBASELD 
R5.RFRELD 



R5.XFRELD 



#15. R3 

TEMP 

2(R1) 

.♦20 

TEMP 

1$ 

R3 

1$ 

14 

10$ 

#8IT0.2(R1) 

11$ 

14 

10$ 

#8IT8.R5 

6(R1).R4 

R5.R4 

.♦4 

15 

PC. SHUTDOWN 



; POINT TO THE START OF NEXT 
;R1 CONTAINS BASE KMC 11 ADDRESS 
.MASTER CLEAR KMC11 

.LOAD KMC BASEMC ADDRFSS 
LOAD RECEIVE BA/CC 
BA 

CC 

LOAD XMIT BA/CC 
BA 

CC 

DELAY COUNT 

CLEAR DELAY COUNTER 

IS RDY 0 SET? 

BR IF SET 

INC DELAY COUNTER 

BR IF NOT DONE DELAY 

DEC DELAY COUNT 

BR IF DELAY NOT DONE 

ERROR. RDY 0 NOT SET 

GET OUT 

IS IT CNTL 0? 

BR IF YES 

ERROR. NOT CNTL 0 

CONTINUE 

PUT ' tXPECTED" IN R5 
PUT , TOUND'• IN R4 
IS NON-EX-MEM SET? 
BR IF YES 

ERROR NON-EX-MEM NOT SET 
SHUTDOWN KMC 
SCOPE THIS TEST 



PAGE : 006 Sf 



TEST, 



;*****•***•**********•****** TEST 6 ************************•*' 

'■ *F*ROCESSOR ERROR TEST 

;*IN FREE RUNNING MODE. DO A BASEMC TRANSFER REQUEST AFTER A 
;*BASEMC HAS BEEN SET UP. VERIFY THAT A PROCESSOR ERROR OCCURS. 



TEST 6 



a************************************************************** 



000004 

012737 000006 001202 
012737 015740 001442 



TST6: 



015640 104410 



015642 
015646 
015652 
015654 
015656 
015662 
015666 



004737 
152711 
105711 
100376 
142711 
005037 
105761 



022030 
000043 



000040 
011122 
000002 



V$: 



13$: 



SCOPE 

MOV 

MOV 

MSTCLR 

$SKIPT 

JSR 

8IS8 

TST8 

BPL 

8KB 

CLR 

TST8 



#6,$TSTNM 
#TST7,NEXT 



10$ 

PC.BASELD 
#43, (RD 
(R1) 
.-2 

#40. (RD 
TEMP 

2(R1) 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

R1 CONTAINS BASE KMC11 ADDRESS 

MASTER CLEAR KMC11 

LOAD BASEMC ADDRESS 

2ND BASEMC REQUEST 

RDI SET? 

BR IF NO 

CLEAR RQI 

GET SET TO DELAY 

RDO SET? 
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2650 

C \J J w 


01 5672 


100405 




2651 


01 5674 


005237 


011122 


2652 


015700 

W • J I ww 


001372 

WW ' J ' *— 




2653 


015702 

Via/' VL 


104014 

• w^W 1 ^ 




2654 


015704 


000770 




2655 


015706 


152761 


000001 

WWW 1 


2656 


015714 


001002 

W • WWC 




2657 


015716 


104014 




2658 


015720 


000407 




2659 


015722 

Via/' *- U. 


012705 


001000 


2660 


015726 


016104 

V l w I w~ 


000006 

VVVVVU 


2661 


015732 


020504 




2662 


015734 


001401 




2663 


015736 


104015 




2664 


015740 






2665 








2666 
2667 














2668 








2669 








2670 








2671 








2672 








2673 








2674 








267b 








2676 


015740 


000004 




2677 


015742 


012737 


000007 


2678 


015750 


012737 


016056 


2679 








2680 


015756 


104410 




2681 








2682 


015760 


004737 


022030 


2683 


015764 


152711 


000046 

W W WW » w 


2684 


015770 


105711 




2685 


015772 


100376 




2686 


015774 


142711 


000040 


2687 


016000 


005037 


011 122 


2688 


016004 


105761 


000002 

WWW Wwfc 


2689 


016010 


100405 




2690 


016012 


005237 


011122 

W 1 1 ICC 


2691 


016016 


001372 


2692 


016020 


104014 




2693 


016022 


000770 

WW ' ' W 




2694 


016024 


1 32761 


000001 

WWWWW 1 


2695 


016032 


001002 




2696 


016034 


104014 




2697 


016036 


000407 




2698 


016040 


012705 


001000 

WW 1 www 


2699 


016044 


016104 


000006 


2700 


016050 


020504 




2701 


016052 


001401 




2702 


016054 


104015 




2703 


016056 






2704 








2705 









TESTS 



B 6 



PAGE 



BMI 


14$ 




INC 


TEMP 


'INC DELAY 


BNE 


13$ 


•BR IF NOT DONE DELAY 


ERROR 


14 


ERROR, RD0 NOT SET 


BR 


13$ \ 


•TRY AGAIN 


BITB 


#BIT0 2(R1) 


•IS IS CNTI fP 


BNE 


11$ 


•BR IF YES 


ERROR 


14 


•ERROR NOT CNTL 0 

Lr\r\vn i«w l il— w 


BR 


10$ ; 


•CONTINUE 

•PUT EXPECTED" IN R5 
•PUT 'T0UND" IN R4 


MOV 


#BIT9,R5 


MOV 


6(R1),R4 


CMP 


R5,R4 


•IS "ROC ERROR SET? 


BEQ 


.+4 


;BR IF YES 


ERROR 


15 


ERROR, PR0C ERROR NOT SET 


; SCOPE 




; SCOPE THIS TEST 



; *************************** TEST 7 *************************** 

•♦PROCESSOR ERROR TEST 

;*IN FREE RUNNING MODE DO A RQI WITH AN ILLEGAL 10 CODE 
;* VERIFY THAT A PROCESSOR ERROR OCCURS 

• : ************************************************************* 



TEST 7 



********* 

SCOPE 

MOV 

MOV 

MSTCLR 

$SKIPT 

JSR 

BISB 

TSTB 

BPL 

BICB 

CLR 

TSTB 

BMI 

INC 

BNE 

ERROR 

BR 

BITB 

BNE 

ERROR 

BR 

MOV 

MOV 

CMP 

BEQ 

ERROR 

; SCOPE 



*************************************************** 



#7,$TSTNM 
*TST10,NEXT 



10$ 

PCBASELD 
#46, (R1) 
(R1) 
.-2 

#40, (R1) 

TEMP 

2(R1) 

.+14 

TEMP 

1$ 

14 

1$ 

#BIT0,2(R1) 

11$ 

14 

10$ 

#BIT9,R5 

6(R1),R4 

R5,R4 

.+4 

15 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.-MASTER CLEAR KMC11 

;L0AD KMC BASEMC ADDRESS 
RQI AND ILLEGAL CODE 
WAIT FOR RDI 
BR IF NO RDI 
CLEAR RQI 
CLEAR COUNTER 
RDY 0 SET? 
BR IF YES 

BUMP COUNTER DELAY 
BR IF NOT DONE 
ERROR NO RDY 0 
TRY AGAIN 
IS IT CNTL 0 
BR IF YES 
ERROR. NOT CNTL 0 
CONTINUE 

PUT "EXPECTED" IN R5 
PUT "FOUND" IN R4 
IS PR0C ERROR SET? 
BR IF YES 

ERROR PR0C ERROR NOT SET 
SCOPE THIS TEST 
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C 6 



c i Uti 








7707 

C ' VII 








77DH 








?70Q 








571 n 








271 1 
ci I I 








271 ? 








?71 ^ 








?71£ 
C f I *♦ 








P71 «; 


01 aos* 

U I Ow JO 


noooo^ 




271 A 


01 AOAO 


01 77\7 
vlci Ji 


00001 0 


?71 7 

CI 1 1 


01 AOAA 


M7717 

UiciJi 


01 A1 5A 
UIOI JO 


P71R 

CI IO 








c r I ▼ 


01 A07£ 


1 ClLL 1 0 

I viHH 1 \J 




7770 
c I cv 








C r C 1 


01 A07A 

V I OU 1 O 


00^737 
uui i ji 


0??1 7A 

UCC I JO 


7777 

C ' cc 


Vlvl VC 


004537 

W*t JJI 


0??^5A 

vice J JO 


7771 

CICJ 


016106 


0?1 3A? 

Uc I JUL 




7771* 

CICt 


0161 10 


0000££ 




777^ 

CI CJ 


0161 1? 


00^37 


vice** I V 


777f> 

C i cu 


0161 1 A 

VlUl IO 


0?1 31£ 

VC I J 11 




7777 

CI C 1 


nunn 

V/IOlCv 


OOOOit> 




777R 
c f to 


01 61?? 

vio ICC 


01P703 

V I C 1 VJ 


000003 

V/VVVVI J 


7779 


0161?6 

V/IUI CO 


005037 

W JvJ r 


01 1 1?? 

vi 1 1 1 CC 


?7V) 


016H? 

V IO 1 JC 


1057A1 

1 V J 1 O 1 


00000? 


?7^1 


0161% 
vioi jo 


1004 OA 




?73? 


016140 
vioi •♦v 


0052V 

\J\JJC JI 


01 1 1?? 
u i ) ice 




016144 


001 V? 

V V 1 Jr c 




C ' J"» 


016146 

V IO I HO 


005VH 

VV>JVJ 




CI J J 


0161 SO 

viol J\J 


001 ^70 

W I Jf V 




C i JO 


0161 *»? 
v I O I Jc 


000401 
vvV**v I 




?737 

CI -Ji 


016154 

VlOl Jt 


1 04014 

1 VH v 1 H 




?738 

C 1 JO 


0161 56 
viol jo 






C l J7 








c 1 HU 








?7£1 








771*7 

C 1 ^c 








?743 

C 1 " -J 








771*1* 








?7d 

CI ** J 








C * MO 








771,7 

CI **l 
























?750 








?751 








?75? 


0161 56 

VIOI J\J 


000004 
vvvvv** 




2753 


016160 


012737 


00001 1 

WW W W 1 1 


2754 


016166 


012737 


016370 


2755 








2756 


0161 74 


104410 




2757 








2758 


016176 


005037 


020050 


2759 


016202 


005737 


020050 


2760 


016206 


001005 




2761 


016210 


004737 


022030 



FREE RUNNING TESTS 



PAGE: 0067G 



;*************************** yfST 10 *************************** 
; *HALF DUPLEX TEST 

;*IN FREE RUNNING MODE. SET HALF DUPLEX AND L U LOOP 
;*SEND A MESSAGE AND VERIFY THAT THERE ARE NO DONES 

;;************************************************************** 

; TEST 10 



;;*************************************************************** 

TST10: 



4$: 



5$: 
10$: 



SC0PF 

-j v vr L. 






MOV 


#10.$TSTNM 


; LOAD THE NO. OF THIS TEST 


MOV 


#TST11.NEXT 


; POINT TO THE START OF NEXT 




;R1 CONTAINS BASE KMC11 ADDRESS 


MSTCLR 


.•MASTER CLEAR KMC11 


SSKIPT 


10$ 




JSR 


PC.BASELH 


LOAD BASEMC AND HALF DUPLEX 


JSR 


R5.RFRELD 


LOAD RECEIVE BUFFER 


R8UF 




BA 


44 




CC 


JSR 


R5.XFRELD '. 


•LOAD TRANSMIT BUFFER 


T8UF 




BA 


44 




CC 


MOV 


#3,R3 ; 


•LOAD DELAY COUNT 


CLR 


TEMP 


CLEAR DELAY 


TST8 


2(R1) 


IS DONE SET? 


BMI 


5$ 


BR IF YES (ERROR) 


INC 


TEMP 


INC DELAY 


BNE 


4$ 


■BR IF DELAY NOT DONE 


DEC 


R3 


DEC DELAY COUNT 


BNE 


4$ 


•BR IF DELAY NOT DONE 


BR 


10$ 




ERROR 


14 .-ERROR DONE WITH HALF-DUPLEX 



*************************** TEST 11 a************************** 
♦RESUME TEST 

*THIS TEST SENDS AND RECEIVES A BUFFER AND SHUTS DOWN THE 
*KMC. THEN A MASTER CLEAR IS ISSUED AND A BASEMC WITH RESUME 
*BIT SET IS GIVEN. ANOTHER BUFFER IS SENT AND RECEIVED. 
♦DATA IS CHECKED. 

;************************************************************** 

TEST 11 

»************************************«,************************* 



TST11: SCOPE 
MOV 
MOV 

MSTCLR 
;$SKIPT 10$ 
CLR 

1$: TS' 
BNE 

JSR 



#11.$TSTNM 
#TST12.NEXT 



RESUME 
RESUME 
2$ 

PC.BASELD 



; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 

;R1 CONTAINS BASE KMC11 ADDRESS 

.■MASTER CLEAR KMC11 

CLR RESUME FLAG 
FIRST OR SECOND PASS? 
BR IF SECOND 
BASEMC 
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D 6 



2762 


016214 


000402 




2763 


016216 


004737 


022246 


2764 


016222 


004537 


022356 


2765 


016226 


021 362 




2766 


016230 


000044 




2767 


016232 


004537 


022410 


2768 


016236 


021314 




2769 


016240 


000044 




2770 


016242 


012703 


000030 


2771 


016246 


012700 


000002 


2772 


016252 


005037 


011122 


2773 


016256 


* ft ny 4 

105761 


AAAAA *^ 

000002 


2774 


016262 


4 A A / A ^ 

100407 




^77 IT 

2775 


016264 


ftftF ^77 

005237 


011122 


2776 


A4/ *^"7rt 

016270 


AA4 T ~» ^ 

001372 




"^777 

2777 


016272 


aaa? 7 r\~r 

005303 




277a 


016274 


/%/\ <• 7^rt 

001370 




2779 


A4 £ ^T/ 

01 6276 


104014 




2780 


016300 


ft ft ft / 7 7 

000433 




2781 


016302 


042761 


ft ft ft AT 

000207 


2782 


A4 z 74 r\ 

016310 


ftftC 7 ft ft 

005300 




•^707 

2783 


ft* d 7-fJ ft 

016312 


AA4 7/4 

001361 




^7fly 

2784 


A4 y 7/4 / 

016314 


ft* "^7A'"^ 

012702 


ATI 7i / 

021314 


2785 


/M y 7/ ft ft 

016320 


A 4 7 A 7 

01 2703 


AH 7/ A 

021 362 


2786 


ft* d Tft t 

016324 


/•V 4 ">7ftA 

012700 


ftftftft / / 

000044 


•570 7 

2787 


016330 


112205 




T70 0 

2788 


/S*1 Z. 771 

016332 


* * A7A/ 

112304 




2789 


A4 / 777 

016334 


* AC A 1 

1 20504 




**7l*V\ 

2790 


ft* d 77rf 

016336 


ft ft* / Al 

001401 




2791 


y 7r / y\ 

016340 


1 0401 2 




2792 


ft* I 7/ 1 

016342 


A AIT 7 AA 

005300 




2793 


ft* d 77 / 

016344 


AA4 774 

001371 




2794 


ft* y 7 y y 

016346 


ftftl 77 7 

004737 


022442 


*\7rtr 

2795 


a* z 7d 

016352 


AAC777 

005737 


020050 


2796 


016356 


ft ft * ft ft / 

001004 




2797 


016360 


012737 


\77777 


*>, TOO 

2798 


A4 y 7y y 

016366 


000705 




2799 


ft* t ~w~yr\ 

016370 






2800 


ft* y 77A 

016370 






2801 








2802 








2803 








2804 








2805 








2806 








2807 








2808 








"JJJAQ 

CoLrr 








2810 








2811 








2812 








2813 








2814 








2815 








2816 


016370 


000004 




2817 


016372 


012737 


000012 



FREE RUNNING TESTS 



2$: 
3$: 



PAGE: 0068C2 



4$: 



6$: 



7$: 



020050 



8$: 
10$: 



BR 


3S 


CONTINUE 


JSR 


PC.RESUM 


BASEMC WITH RESUME BIT 


JSR 


R5,RFRELD 


RECEIVE BUFFER 


R8UF 




BA 


44 




CC 


JSR 


R5.XFRELD 


XMIT BUFFER 


T8UF 




BA 


44 




•CC 


MOV 


u7A i-v 7 

#30. R3 


DELAY COUNT 


MOV 


a* ~» nA 

#2.R0 


NEED TWO D0NES 


/* 1 ft 

CLR 


V f" UA 

TEMP 


CLEAR DELAY COUNTER 


TST8 


-\ / Ai \ 

2(R1) 


■IS RDY 0 SET? 


8MJ 


.+20 


•BR IF SET 


INC 


TEMP 


INC DELAY COUNTER 


BNE 


4» 


•BR IF NOT DONE DELAY 


rv c f 

DEC 


R5 


fv r~ /v #v r" 1 a w *v ^v 1 u ■ v 

•DEC DELAY COUNT 


BNE 


4* 


BR IF DELAY NOT DONE 


C ftftftft 

ERROR 


14 


•ERROR. RDY 0 NOT SET 


ft ft 

BR 


10» 


GET OUT 


ft T /* 

BJC 


»207,2(R1; 


#v 1 r~ a rv «v ^v a 1 r~ 

•CLEAR DONE 


ftC f* 

DEC 


nA 

R0 


▼ l 1/** rv AA 1 r- /-» , , »— » a 

•TWO D0NES YET? 


BNE 


/ £ 


r*\ rv » #- > iat 

;BR IF NOT 


MOV 


•TBUF.R2 


* fv rv ^v r™ a a « aaai\ rv a t - a 

;ADDRESS OF GOOD DATA 


MOV 


#RBUF ,R5 


a rv rv rv r" /*" /v /-» r- nr ap ll/l*rk rVA-r-A 

;ADDRESS OF RECEIVED DATA 


MOV 


Ml / r\ ft 

#44, R0 


; COUNT 


f_tA\ 

M0V8 


/ AlS 1 r\ c 

(R2)+.R5 


1 rv m rv r^ r*vr^fv rv a v ■ 

■LOAD GOOD DATA 


MOVB 


(R3)+.R4 


t /"\ a rv r~ aj h 1 rv rv a v a 

"LOAD FOUND DATA 


CMP8 


ftC ft/ 

R5.R4 


*v , ..gi-. • AT rv A T* A 

•COMPARE DATA 


BEQ 


7t 


;BR IF OK 


ERROR 


12 


;DATA ERROR 




DA 


UUNt Tt 1 . 


BNE 


6$ 


•BR IF NOT 


JSR 


PC. SHUTDOWN 


•SHUTDOWN KMC 


TST 


RESUME 




BNE 


8S 


BR IF ALL DONE 


MOV 


#-"! .RESUME 


SET FLAG FOR SECOND PASS 


BR 


1S 


•CONTINUE 


.•SCOPE 




•SCOPE THIS TEST 



*************************** TEST 12 *************************** 

*FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISER) 

•THIS TEST REPEATEDLY QUEUES UP 7 RECEIVE BUFFERS AND 

*7 TRANSMIT BUFFERS AND CHECKS DATA WHEN ALL 7 BUFFERS 

♦ARE RECEIVED. TRANSMIT COUNTS RANGE FROM 2 TO 104. 

♦DATA IS A BINARY COUNT PATTERN. THE RESUME FUNCTION 

*IS CHECKED IN THIS TEST. THIS TEST USES THE TURNAROUND CONNECTOR 

*IF IT IS PRESENT. OTHERWISE LINE UNIT LOOP IS SET. 

*************************************************************** 



TEST 12 
***< 

TST 12: SCOPE 



MOV 



#12.$TSTNM 



; LOAD THE NO. OF THIS TEST 
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2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 



C16400 012737 003662 001442 

177776 



016406 104410 



016410 
016416 
016422 
016424 
016426 
016430 
016432 
016436 
016444 
016450 
016456 



016462 
016470 
01 6'. 74 
016500 
016502 
016506 
016512 
016514 
016520 
016524 
016526 
016532 
016536 
016542 
016544 
016552 



016556 
016562 
016566 
016572 
016576 
016600 
016604 
016606 
016612 
016616 
016622 
016624 
016626 
016630 
016632 
016634 
016642 
016650 
016652 
016656 



012737 
013700 
006200 
006200 
006200 
006200 
042700 
012777 
010077 
012777 
010077 



012737 
012700 
01 2703 
010320 
062703 
022700 
001372 
012720 
022700 
001373 
012700 
013720 
022700 
001373 
012737 
012711 



012711 
012700 
005037 
012705 
005025 
022705 
001374 
012704 
013724 
022704 
001373 
005002 
005004 
005711 
100376 
152761 
032737 
001002 
05271 1 
022737 



000340 
002050 



177437 
017132 
163410 
017422 
163402 



000104 
020054 
020346 

000104 
020072 

020110 
020110 

020222 
021306 
020240 

000005 
040000 



100000 
177777 
020050 
020256 

021302 

020240 
021306 
020256 



000100 
040000 

004000 
000005 



163412 
163404 

021306 



021304 



000002 
002050 



021304 



STS 



PAGE : 0069C, 



MOV 

MSTCLR 

SSKIPT 

MOV 

MOV 

ASR 

ASR 

ASR 

ASR 

BIC 

MOV 

MOV 

MOV 

MOV 



#$EOP.NEXT 



ENDEX1 

#340, PS 

STAT1.R0 

RO 

RO 

RO 

RO 

#177437,R0 

fllSR.iKMRVEC 

RO.iKMRLVL 

#0ISR,3KMTVEC 

R0.3KMTLVL 



; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC 11 ADDRESS 
.-MASTER CLEAR KMC11 

LOCK, OUT INTERRUPTS 

GET BR LEVEL 

SHIFT RIGHT 4 TIMES 



PUT BR LEVEL IN RO 
LOAD INPUT VECTOR 
LOAD LEVEL 
LOAD OUTPUT VECTOR 
LOAD lEVEL 



.•INITIALIZE ALL BUFFER LISTS AND COUNT LISTS 



MOV 


#104, TFLAG 


TFLAG CONTAINS COUNT 


MOV 


#XMITBA+2,R0 


•RO POINTS TO BA LIST 


MOV 


#RBUFF.R3 


•R3 CONTAINS BUFFER ADDRESS 




R3,(R0)+ 


•LOAD BA LIST WITH REC BA 


ADD 


#104,R3 


•UPDATE BUFFER ADDRESS 


CMP 


#XMITBA+20,R0 


END OF REC BUFFERS? 


RNF 


1$ 


;N0 LOAD NEXT ONE 




#TBUFF,(R0)+ 


;LOAD BA LIST WITH XMIT BA 


CMP 


#XMITBA+36.R0 


;END OF XMIT BUFFERS? 


RNF 
one 


2S 


■NO LOAD NEXT BUFFER 


MOV/ 


#RCNTAB+2,R0 


;R0 POINTS TO COUNT LIST 


MOV 


TFLAG, (R0)+ 


;LOAD COUNT OF 104 


CMP 


#RCNTAB+2O.R0 


;END OF REC COUNT LIST? 


BNE 


3$ 


BR IF NO 


MOV 


#5. FLAG ;LOOP COUNT 


MOV 


#BIT14.(R1) 


■SET MASTER CLEAR 


BIT 


#BIT15,STAT1 


I OP? 


BEO 


.+6 


•BR IF NO 


MOV 


#BIT15,(R1) 


•SET RUN ON IOP 


MOV 


#-1 .RO 


■RO IS INPUT DONE COUNTER 


CLR 


RESUME 


•CLEAR RESUME FLAG 


MOV 


#RDNTAB.R5 


•GET READY TO CLEAR ALL RECEIVE 


CLR 


(R5) + 


•BUFFERS 


CMP 


#RBUFFE.R5 


•END OF BUFFER? 


BNE 


2$ 


BR IF NO 


MOV 


#XCNTAB,R4 


•R4 POINTS TO XMJT COUNT LIST 


MOV 


TFLAG, (R4) + 


•LOAD XMIT CHAR COUNT 


CMP 


#XCNTA8+16,R4 


DONE? 


BNE 


4$ 


BR IF NO 


CLR 


R2 


R2 IS OUTPUT DONE COUNTER 


CLR 


R4 


R4 IS USED AS INDEX IN OISR 


TST 


(R1) 


IS RUN SET? 


BPL 


.-2 


WAIT FOR RUN 


BIS8 


#BIT6,2(R1) 


SET IEO 


BIT 


#BIT14,STAT1 


LOOP BACK CONNECTOR? 


BNF 


.+6 


BR IF YES 


BIS 


#BIT11.(R1) 


SET LINE UNIT LOOP 


CMP 


#5. FLAG 


FIRST TIME? 



F 6 
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2874 


016664 


001003 

WW ■ ww^ 








BNE 


1$ 


BR IF NOT 


2875 


016666 


052711 


000143 






BIS 


#143. (R1) 


SET IEI.RQI BAS F MC I 


2876 


016672 


000402 








BR 


3$ 


CONTINUE 


2877 


016674 


05271 1 


000144 




1$: 


BIS 


#144, (R1) 


SET IEI. RQI. RFC BA/CC 


2878 


016700 


005037 


011122 




3$: 


CLR 


TEMP 


SET UP FOR DELAY COUNT 


2879 


016704 


012737 


000022 


001300 




MOV 


#22. STMP1 


GET SET FOR DELAY 


2880 


016712 


005037 


177776 






CLR 


PS 


ALLOW INTERRUPTS 


2881 


016716 


022700 


000020 




SCAN: 


CMP 


#20, RO 


INPUT DONE? 


2882 


OW^ 


001402 








BEQ 


SCAN2 


BR IF YES 


2883 


016724 


000137 


017102 






JMP 


SCAN1 


BR IF NO 


2884 


016730 


022702 


000034 




SCAN2: 


CMP 


#34, R2 


XMIT DONE FOR ALL MESSAGES 7 


2885 


016734 


001402 








BEC 


8$ 


BR IF YES 


2886 


016736 


000137 


017102 






JMP 


SCAN1 


BR IF NO 


2887 


016742 


022704 


000034 




8$: 


CMP 


#34. R4 


REC DONE FOR ALL MESSAGES 7 


2888 


016746 


001 402 








BEQ 


9$ 


BR IF YES 


2889 


016750 


000137 


017102 






JMP 


SCAN1 


BR IF NO 


2890 


016754 








9$ : 








2891 


016754 


012700 


020256 






MOV 


#RDNTAB.RO 


GET FIRST REC BUFFER 


2892 
2893 


016760 


012002 






5$: 


MOV 


<R0)+.R2 


R2 POINTS TO BUFFER 


016762 


005005 








CLR 


R5 


R5=EXPECTED 


2894 


016764 


005003 








CLR 


R3 


R3 = COUNT 


2895 


016766 


010237 


001302 




6$: 


MOV 


R2.STMP2 


•SAVE ADDRESS FOR TYPE OUT 


2896 


016772 


112204 








M0V8 


(R2)+.R4 


•GET RECEIVE DATA 


2897 


016774 


120504 








CMP8 


R5.R4 


•IS IT CORRECT? 


2898 


016776 


001401 








BEQ 


.♦4 


BR IF YES 


2899 


017000 


104013 








ERROR 


13 


;DATA ERROR 


2900 


017002 


005205 








INC 


R5 


;NEXT CHARACTER 


2901 


017004 


005203 








INC 


R3 


;INC COUNT 


2902 


017006 


021003 








CMP 


(R0).R3 


rDONE YET? 


2903 


017010 


001366 








BNE 


6$ 


•BR IF NO 


2904 


017012 


062700 


000002 






ADD 


#2,R0 


,'GET NEXT REC BUFFER 


2905 


017016 


022700 


020312 






CMP 


#RDNTAB+34.R0 


;DONE YET? 


2906 


017022 


001356 








BNE 


5$ 


;BR IF NO 


2907 


01 7024 


012700 


000001 






MOV 


#1,R0 


;SET RO TO 1 


2908 


01 7030 


032737 


000001 


021304 


4$: 


BIT 


#81 TO, FLAG 


; CHANGE CHAR COUNT FOR NEXT LOOP 


2909 


017036 


001003 








BNE 


1$ 


*BR TO SUB 40 


2910 


01 7040 


005337 


021306 






DEC 


TFLAG 


;DEC BY ONE 


2911 


017044 


000403 








BR 


2$ 


.■CONTINUE 


2912 


017046 


162737 


000040 


021306 


1$: 


sue 


#40, TFLAG 


.•SUBTRACT 40 FRON XMIT COUNT 


2913 


01 7054 


005337 


021304 




2$: 


DEC 


FLAG 


•DEC LOOP COUNT 


2914 


017060 


001242 








BNE 


CLRTAB 


GO DO IT AGAIN 


2915 


017062 


152711 


0001 46 




ENDEX : 


BISB 


#146, (R1) 


;SHUT DOWN KMC 


2916 


017066 


005737 


021304 




1$: 


TST 


FLAG 


•HAS INTERRUPT OCCURED? 


2917 


017072 


001 775 








BEQ 


is 


BR IF NO 


2918 


017074 


000400 








BR 


ENDEX1 


•ALL OK GET OUT 


2919 


017076 


000004 






ENDEX 1 : 


SCOPE 




SCOPE THIS TEST 


2920 


017100 


104420 






ENDEX2: 


ADVANCE 






2921 


017102 


005337 


011122 




SCAN1 : 


DEC 


TEMP 


'DECREMENT DELAY COUNTED 


2922 


01 7106 


001402 








BEQ 


1$ 


BR IF ZERO 


2923 


017110 


000137 


016716 






JMP 


SCAN 


BR IF NOT DONE DELAY 


2924 


017114 


005337 


001300 




'$: 


DEC 


$TMP 1 


DEC DELAY COUNT 


2925 


017120 


001402 








BEQ 


2$ 


BR IF DONE DELAY 


2926 


017122 


000137 


016716 






JMP 


SCAN 


BR IF NOT DONE 


2927 


017126 


104001 






2$: 


ERROR 


1 


ERROR HUNG 


2928 


017130 


000762 








BR 


ENDEX1 


GET OUT 


2929 
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FREE RUNNING 


TESTS 




2930 












; INPUT 


INTERRUPT SERVICE 


ROUTINE 


2931 


















*\at/i 

2932 


017132 


022700 


A A A A 1 7 

000017 




HSR: 


CMP 


#17. RO 


PR0C. ERROR DONE? 


2933 


017136 


001421 








BEQ 


12$ 


BR IF YES 


■"fcA7 i 

2934 


01 7140 


aac 777 

005737 


A"»AAf A 

020050 






TST 


RESUME 


IS THIS A RESUME INTERRUPT 


2935 


01 7144 


001432 








BEQ 


8$ 


BR IF NO 


2936 


A 4 7t / / 

017146 


03271 1 


A A AAA ~> 

000002 






BIT 


#BIT1.(RD 


CNTL OR BASEMC? 


2937 


017152 


001407 








BEQ 


13$ 


BR IF CNTL I 


2938 


01 7154 


012761 


021430 


000004 




MOV 


#BASEMC.4(R1> 


LOAD BASEMC ADDRESS 


2939 


A1 71 ^ 1 

01 7162 


At *>7/ 1 

012761 


A1 AAA A 

010000 


000006 




MOV 


#BIT12,6(R1> 


WITH RESUME BIT SET 


->r"W A 

2940 


A1 71 7A 

01 71 70 


AAA/ A/ 

000404 








BR 


12$ 


CONTINUE 


lAy * 


A4 7* 71 

01 71 72 


005061 


AAAAA/ 

000006 




13$: 


CLR 


6(R1) 


SELECT FULL DUPLEX 


2942 


A1 ">1 7/ 

01 71 76 


AACA77 

005037 


A 1 A AC A 

020050 






CLR 


RESUME 


CLEAR RESUME FLAG 


2943 


01 r 202 


i y 171 1 

14271 1 


AAA Ay A 

000040 




12$: 


BIC8 


#40. (R1) 


CLEAR RQI 


lAy / 

2944 


017206 


1 AC 71 1 

10571 1 








TST8 


(R1) 


IS RLI GONE? 


2V45 


A1 711 A 

01 721 0 


1 AA77Z 

100776 








BMI 


.-2 


BR IF NO 


2V46 


A1 711 "5 

01 721 2 


AAC777 

005 737 


A1AACA 

020050 






TST 


RESUME 


•BASEMC OR CNTL I? 


2947 


A1 711 4. 

01 7216 


AA1 y A7 

001 403 








BEQ 


14$ 


BR IF IT WAS CNTL I 


2t4c 


A1 7T1A 

01 7220 


1 C 171 1 

I52rll 


A AAA/ 1 

000041 






BIS8 


#41. (RD 


•ASK FOR CNTL I 


iq/ o 


ai 7ny 

01 7224 


AAAAA 1 

000002 








RTI 




■RETURN 


2t50 


A1 711/ 

01 7226 


1 AC A1 1 

10501 1 






14$: 


CLR8 


(RD ; 


•CLEAR BSEL 0 


2V51 


A1 71TA 

01 7230 


000002 








RTI 




•RETURN 


2V52 


A1 7771 

01 7232 


AAC 7AA 

005 r00 






8$: 


TST 


RO ; 


■FIRST TIME HERE? 


2953 


A1 71*7/ 

01 7254 


1 AAAAZ 

100006 








BPL 


7$ 


LOAD BASEMC IF MINUS 


2V54 


A1 717/ 

01 7236 


A1 

012'61 


A.11 / 7A 

021430 


000004 




MOV 


#BASEMC.4(R1) 


;SET UP BASEMC ADDRESS 


VIC c 

2955 


ai 71/ / 
01 7244 


A AC AX 1 

005061 


AAAAAX 

000006 






CLR 


6(R1) 


■CLEAR COUNT 


2v56 


A1 71CA 

01 7250 


AAA/ T/ 

000*07 








BR 


3$ 


•CONTINUE 


10^7 


A1 71C 1 

01 7252 


AA1 AA7 
001003 






7$: 


BNE 


1$ 


•CNTL I FULL DUPLEX IF 0 


cV Jo 


A1 71C/ 

01 7254 


AACAZ1 

005061 


AAAAA/ 

000006 






CLR 


6(R1) 


•SELECT FULL DUPLEX 


V5CQ 

2V5y 


A1 71/ft 

01 7260 


AAA/ 7A 
000430 








BR 


3$ 


; CONTINUE 


2V60 


A1 71/ 1 

01 7 262 


A7T7AA 

032 r 00 


AAAA 1 A 
0000 I 0 




1$: 


BIT 


#3IT3.R0 


rXMIT? 


2V61 


A1 71// 

01 7266 


AA1 A1? 
001013 








BNE 


2$ 


;BR IF YES 


1Q/1 


A1 717A 

01 7270 


AAA1/ 1 

000241 








CLC 




CLEAR CARRY 


2t63 


A1 7171 

01 fife 


A AX 1 AA 

006100 








R0L 


RO 


•MAKE RO EVEN 


*irw / 

2V64 


A1 717/ 

01 7274 


A1 X AX 1 

016061 


A1AAC1 

020052 


000004 




MOV 


REC8A(R0).4(RD 


•LOAD REC BUFFER 


2V65 


A1 77A1 

01 7302 


A1 X AX 1 

016061 


A1A11A 

020220 


000006 




MOV 


RCNTAB(R0),6(RD 


;L0AD COUNT 


2Voo 


A1 771 A 

01 7310 


AAA1/ 1 

000241 








CLC 


•CLEAR CARRY 


2967 


A1 77 1 1 

017312 


AAX AAA 

006000 








R0R 


RO 


GET RO BACK 


2968 


A1 771 / 

01 7314 


AAA/ 1 1 

000412 








BR 


3$ 


■CONTINUE 


2969 


A1 771 / 

01 7316 


AAA")/ 1 

000241 






2$: 


CLC 




CLEAR CARRY 


2970 


A1 77 1A 

01 7320 


AAX 1 AA 

006100 








R0L 


ro ; 


•MAKE IT EVEN 


tV'l 


A1 7711 
01 fbtd 


A1 XAX 1 

016061 


A1AAC 1 

020052 


000004 




MOV 


XMITBA(R0).4(RD 


LOAD XMIT BUFFER 


2972 


A1 777A 
01 7330 


A1 XAX 1 

016061 


A1A11A 

020220 


000006 




MOV 


RCNTAB(R0),6(RD, 


■LOAD COUNT 


2973 


A1 777/ 

01 7336 


AAAly 1 

000241 








CLC 


•CLEAR CARRY 




A1 77/ A 

01 7340 


AA/ AAA 
006000 








R0R 


ro ; 


•PUT IT BACK 


2975 


A1 77/ 1 

01 7342 


1 / 171 1 

14271 I 


AAAA / A 

000040 




3$: 


BICB 


#40. (RD 


CLEAR RQI 


cvr 6 


A1 77/ / 

01 7346 


1 AC 71 1 

10571 1 








TST8 


(R1) 


WAIT FOR 


297 7 


A1 77CA 

01 7350 


1 AA77Z 

100776 








BMI 


.-2 


RDI TO GO AWAY 


2978 


017352 


005200 








INC 


RO 


INC COUNT 


2979 


017354 


001003 








BNE 


6$ 


IF 0 ASK FOR CNTL I 


2980 


017356 


152711 


000041 






BIS8 


#41. (RD 


ASK FOR CNTL I 


2981 


017362 


000002 








RTI 




RETURN 


2982 


017364 


022700 


000017 




6$: 


CMP 


#17. RO \ 


DONE YET? 


2983 


017370 


001411 








BEQ 


4$ 


BR IF YES 


2984 


017372 


032700 


000010 






BIT 


#BIT3.R0 


XMIT? 


2985 


017376 


001003 








BNE 


5$ 


BR IF YES 
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?986 


017400 


152711 


000044 






8JS8 


2987 


017404 


000002 








RTJ 


2988 


017406 


152711 


000040 




5$: 


8JS8 


2989 


017412 


000002 








R T J 


2990 


017414 


152711 


000046 




4$: 


BIS8 


299i 


01 7420 


000002 








RTI 


2992 














2993 












;0UTPI 


2994 














2995 


017422 


032761 


000001 


000002 


01 SR: 


BIT 


2996 


01 7430 


001463 








BEQ 


2997 


017432 


005737 


021304 






TST 


2998 


017436 


001006 








BNE 


2999 


01 7440 


005237 


021304 






INC 


3000 


01 7444 


022761 


001000 


000006 




CMP 


3001 


01 7452 


001525 








BEQ 


3002 


01 7454 


022700 


000017 




9$: 


CMP 


3003 


017460 


001035 








BNE 


3004 


017462 


022761 


001000 


000006 




CMP 


3005 


017470 


001031 








BNE 


3006 


017472 


005200 








INC 


3007 


017474 


012711 


040000 






MOV 


3008 










* 


BIT 


3009 












BEQ 


3010 


017500 


012711 


100000 






MOV 


3011 


017504 


105227 


000000 






INCB 


3012 


017510 


001375 








BNE 


3013 


017512 


012737 


\77777 


020050 




MOV 


3014 


017520 


005711 








TST 


3015 


017522 


100376 








BPL 


3016 


017524 


01Z761 


000100 


000002 




MOV 


3017 


017532 


032737 


040000 


002050 




BIT 


3018 


017540 


001002 








BNE 


3019 


017542 


052711 


004000 






BIS 


3020 


017546 


052711 


000143 






BIS 


3021 


017552 


000002 








RTI 


3022 


017554 


016137 


000004 


001302 


11$: 


MOV 


3023 


017562 


016137 


000006 


001304 




MOV 


3024 


017570 


104016 








ERROR 


3025 


017572 


022626 








CMP 


3026 


017574 


000137 


017076 






JMP 


3027 


017600 


032761 


000004 


000002 


1$: 


BIT 


3028 


017606 


001053 








BNE 


3029 


017610 


022761 


020110 


000004 




CMP 


3030 


017616 


001412 








BEO 


3031 


017620 


022761 


020111 


000004 




CMP 


3032 


017626 


001406 








BEQ 


3033 


017630 


012705 


020110 






MOV 


3034 


017634 


016137 


000004 


001302 




MOV 


3035 


017642 


104002 








ERROR 


3036 


017644 


005005 






<♦$: 


CLR 


3037 


017646 


026561 


020240 


000006 


5$: 


CMP 


3038 


017654 


001406 








BEQ 


3039 


01 7656 


062705 


000002 






ADD 


3040 


017662 


022705 


000016 






CMP 


3041 


017666 


001367 








BNE 



H 6 



PAGE : 0072 C 



#44. (R1) 
#40. (R1) 
#46, (R1) 



ASK FOR REC BA/CC 
RETURN 

ASK FOR XMIT BA/CC 
RETURN 

FORCE PROC. ERROR 
RETURN 



INTERRUPT SERVICE ROUTINE 



#8IT0.2(RD 
1$ 

FLAG 

9$ 

FLAG 

#BIT9.6(R1) 
10$ 

#17. RO 
11$ 

#BIT9.6(R1) 

11$ 

RO 

#BIT14.(R1) 

#BIT15.STAT1 

.+14 

#BIT15.(R1) 

#0 

.-4 

#-1 .RESUME 

(R1) 

.-2 

#BIT6,2(R1) 

#8IT14.STAT1 

.+6 

#8IT11,(R1) 
#143. (R1> 

4(R1).$TMP2 
6(R1),$TMP3 
16 

(SP)+,(SP)+ 
ENDEX1 
#8IT2.2(RD 
2$ 

#TBUFF.4(R1) 
4$ 

#TBUFF+1.4(R1) 
4S 

#TBUFF,R5 

4(R1),$TMP2 

2 

R5 

XCNTAB(R5),6(R1) 
6$ 

#2.R5 
#16. R5 
5$ 



IS THIS AN ERROR? 
BR IF NO 

IS THIS SHUT DOWN INTERRUPT? 
BR IF NO 

YES MAKE FLAG NON-ZERO 
SHUT DOWN BIT SET? 
YES ALL IS OK 
RESUME INTERRUPT? 
BR IF NO 

PROC. ERROR BIT SET? 
BR IF NO 

BUMP COUNTER (TO 20) 

MASTER CLEAR DEVICE 

KMC OR KMC? 

BR IF KMC 

SET RUN ON KMC 

DELAY ON KMC 

SET RESUME FLAG 
RUN SET? 
BR IF NO 
SET IEO 

LOOP BACK CONNECTOR? 

BR IF YES 

SET LINE UNIT LOOP 

ASK FOR PORT (BASEMC REQUEST) 

RETURN 

SAVE FOR ERROR TYPEOUT 

SAVE FOR ERROR TYPEOUT 

CNTL 0 ERROR 

ADJUST STACK 

GET OUT 

RECEIVE? 

8R IF YES 

IS XMIT BA CORREC T ? 
BR IF OK 

IS XMIT BA CORRECT? 

BR IF YES 

R5 = EXPECTED 

SAVE FOUND FOR TYPEOUT 

XMIT BA ERROR 

R5 IS INDEX REG 

IS CHAR COUNT OK? 

BR IF YES 

INC INDEX 

DONE LIST YET? 

BR IF NO 
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-JV"tc 


01 7670 

V 1 f Or *J 


inborn 






•/V**J 


01 7672 


01616? 


000004 


020312 


3044 


01 770f, 


062702 


000002 






01 770u 

VI'' V"» 


01616? 


000006 


020312 


3046 


01 771 2 

vl ' ' 1 C 


06270? 


000002 




5047 


017716 

V ' ' ' lu 


I **C f O 1 


000207 


000002 


3048 


01 7724 

VI'' C~ 


00000? 

VvvvvC 




3049 


01 7726 

VI'* cu 


10501 1 

I V J V 1 1 






3050 

«/V */ V 


01 7730 

VI'' Jv 


105061 

I v^ ««Aj 1 


000002 




3051 


017734 

VI'' 


00000? 
wwvc 




3052 


017736 

VI'' -7\J 


012705 

v I C v/ 


000002 




3053 


01 7742 

VI'' ~C 


026561 

vCw J\J I 


020052 


000004 


3054 


017750 

V''' ./V 


001406 






3055 


017752 

VI'' «/C 


062705 

WC ' V/ J 


000002 




3056 


01 7756 


022705 

Vc C ' V J 


000020 




3057 


01 7762 

VI'' wC 


001 367 






3058 


017764 


104004 






3059 


017766 

V 1 ' ' w 


005005 






3060 


01 7770 


026561 


020240 


000006 


3061 


017776 


001406 

VV 1 ~ w 






3062 


020000 

v/ *- ww 


062705 

WC • w 


000002 




3063 


020004 

WW V/V/V/r 


022705 

VC C • V ./ 


00001 6 




3064 


020010 

VC VV 1 V 


001367 

VV 1 — /W r 






3065 


020012 

vtvv 1 C 


104005 

1 V~ VV-/ 






3066 


020014 

VC VV 1 ~ 


016164 

V 1 V 1 V"t 


000004 


020256 


3067 


020022 

VC wc c 


062704 

WC ' V"f 


000002 




3068 


020026 

VC vvC V 


016164 

V 1 \J 1 VJ"T 


000006 


020256 


3069 


020034 


062704 

WC ' v/~ 


000002 




3070 


020040 

VC V 


142761 

1 ™ C r V 1 


000207 


000002 


3071 


020046 


000002 

WWVC 




3072 










3073 










3074 










3075 










3076 


020050 


000000 

vvvvvv 






3077 


020052 








3078 


020052 


00001 7 

WW 1 r 






3079 










3080 


020110 








3081 


020110 


000 

V w 


001 


002 


3082 


0201 13 

WC V 1 i _/ 


003 

VV J 


004 


005 


3083 


0201 16 


006 


007 


3084 


020120 


010 

V/ 1 V/ 


011 


012 


3085 


020123 

V/C- V/ 1 c ■/ 


013 


014 


015 


3086 


020126 


016 

V 1 V 


017 


3087 


020130 


020 

VC v 


021 


022 


3088 


0201 33 


023 

VC -/ 


024 


025 


3089 


020136 


026 

VC VJ 


027 


3090 


020140 


030 


031 


032 


3091 


020143 


033 


034 


035 


3092 


020146 


036 


037 




3093 


020150 


040 


041 


042 


3094 


020153 


043 


044 


045 


3095 


020156 


046 


047 




3096 


020160 


050 


051 


052 


3097 


020163 


053 


054 


055 



I 6 



REE RUNNING TESTS 
6$: 

10$: 
2$: 



PAGE: 007?c; 



3$: 
7$: 



8$: 



ERROR 


3 


XMIT COUNT ERROR 


MOV 


4(R1),XDNTA8(R2), 


•STORE XMIT DONE 8A 


ADD 


#2,R2 


INC INDEX 


MOV 


6(R1),XDNTA8(R2), 


•STORE XMIT DONE CC 


ADD 


#2,R2 


INC INDEX 


BIC8 


#207.2(R1) 


•CLEAR RD0 


RTI 




•RETURN 


CLR8 


(RD ; 


CLEAR SELO 


CLR8 


2(R1) 


CLEAR SEL2 


RTI 




•RETURN 


MOV 


#2,R5 \ 


SET UP R5 AS INDEX 


CMP 


RECBA(R5) ,4 (R1 ) 


COMPARE WITH LIST OF CORRECT BA'S 


BEQ 


3$ 


BR IF OX? 


ADD 


#2.R5 


■INCREMENT R5 


CMP 


#20, R5 


•END CF LIST? 


BNE 


2$+4 


BR IF NO 


ERROR 


4 


REC BA ERROR 


CLR 


R5 


R5 IS INDEX 


CMP 


XCNTAB(R5) ,6(R1), 


•CHECK FOR CORRECT REC COUNT 


BEQ 


8$ 


BR IF YES 


ADD 


#2.R5 


INCREMENT R5 


CMP 


#16. R5 


•END OF LIST? 


BNE 


7» 


•BR IF NOT 


ERROR 


5 


REC COUNT ERROR 


MOV 


4(R1) ,RDNTAB(R4) 


.-STORE REC BA 


ADD 


#2.R4 


•INC INDEX 


MOV 


6(R1).RDNTAB(R4), 


•STORE REC DONE CC 


ADD 


#2.R4 


■INC INDEX 


BIC8 


#207. 2 (RD 


■CLEAR RD0 


RTI 




•RETURN 



.•BUFFERS 

RESUME : 0 
RECBA* 

XMIT8A: .8LKW 17 
T8UFF : 

.BYTE 0.1.2.3.4.5.6.7 



;REC & XMIT BA LliT 

.•TRANSMIT DATA 



.BYTE 10.11.12.13.14.15.16.17 

.BYTE 20.21.22.23,24,25.26,27 

.BYTE 30.31.32.33,34.35,36,37 

.BYTE 40.41.42.43,44.45.46.47 

.BYTE 50.51.52.53,54,55,56.57 
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3098 


020166 

Vw V t WW 


056 


057 




3099 


0201 70 


060 


061 


062 


3100 


0201 73 


063 


064 


065 


3101 


0201 76 


066 


067 




3102 


020200 


070 


071 


072 


3103 


020203 


073 


074 


075 


3104 


020206 


076 


077 




3105 


020210 


100 


101 


102 


3106 


02021 3 


103 


104 


105 


3107 


020216 


106 


107 




3108 










3109 


020220 


000010 






3110 


020240 


000007 






3111 










3112 


020256 


000016 






3113 


020312 


000016 






31H 










3115 


020346 








3116 


020346 


000104 






3117 


020452 


000104 






3118 


020556 


000104 






3119 


020662 


000104 






3120 


020766 


0001 ^4 






3121 


021072 


0001 u4 






3122 


021176 


000104 






3123 


021302 


000000 






3124 










3125 










3126 










3127 










3128 










3129 










31 30 


021304 


000000 






3131 


021306 


000000 






3132 


021310 


000000 






3133 


021312 


000044 






3134 


021314 


041101 


042103 


043105 


3135 


021322 


044107 


045111 


046113 


3136 


021330 


047115 


050117 


051121 


3137 


021336 


052123 


053125 


054127 


3138 


021344 


055131 


030460 


031462 


3139 


021352 


032464 


033466 


034470 


3140 










3141 


021360 


000044 






3142 
3143 


021362 


021430 














3144 


021430 


022030 






3145 










3146 










3147 










3148 










3149 










3150 










3151 


022030 








3152 










3153 











RUNNING TESTS 

.BYTE 60.61,62.63.64.65.66.67 
.BYTE 70.71.72.73.74,75.76,77 
.BYTE 100,101,102.103.104.105.106.107 



RCNTA8. 


• BLKW 


10 


.RECEIVE COUNT TABLE 


XCNTAB. 


.BLKW 


7 


.•TRANSMIT COUNT TABLE 


RDNTAB 


.BLKW 


16 


;RECEi/E DONE TABLE (BA/CC) 


XDNTAB 


.BLKW 


16 


;XMIT DONE TABLE (BA/CC) 


RBUFF : 






.•RECEIVER BUFFERS 


RBUFF 1 


.BLKB 


104 




RBUFF 2 


• BLKB 


104 




RBUFF3 


.8LK8 


104 




RBUFF 4 


.BLKB 


104 




RBUFF 5 


.BLKB 


104 




RBUFF 6 


.BLKB 


104 




RBUFF 7 


.BLKB 


104 




RBUFF E 


• 0 




.END OF RECEIVER BUFFERS 



.BUFFER AREA 



FLAG: 0 

TFLAG: 0 

RFLAG: 0 

TCOUNT: 44 

TBUF : .ASCI I /ABCDEFGHIJKLMNOPQRSTUVWXYZ01 23456789/ 



.EVEN 

RCOUNT: 44 
RBUF: .-.+46 
.EVEN 

BASEMC: .=.+256. 



: SUBROUTINES 



BASELD: 

.-THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS 
;AND PUTS KMC INTO FULL-DUPLEX MODF 
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SUBROUTINES 



3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

317b 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 



022030 012711 040000 



022034 
022040 
022044 
022046 
022050 
022052 
022056 
022062 
022064 
022066 
022074 
022100 
022104 
022106 
022110 
022114 
022116 
022120 
022124 
022130 
022132 
022134 

022136 



012711 
105227 
001375 
005711 
100376 
052711 
152711 
105711 
100376 
012761 
005061 
142711 
105711 
100776 
152711 
105711 
100376 
005061 
142711 
105711 
100776 
000207 



022142 
022146 
022152 
022154 
022156 
022160 
022164 
022170 
022172 
022174 
022202 
022206 
022212 
022214 
022216 
022222 
02222** 
022226 
022234 
022240 
022242 
022244 



012711 
105227 
001375 
005711 
100376 
05271 1 
152711 
105711 
100376 
012761 
005061 
142711 
105711 
100776 
152711 
105711 
100376 
012761 
U2711 
105711 
100776 
000207 



100000 
000000 



004000 
000043 



021430 000004 

000006 

000040 



000041 



000006 
000040 



022136 012711 040000 



100000 
000000 



004000 
000043 



1$: 
2$: 

3$: 
64$: 

65$: 

BASELH: 



021430 000004 

000006 

000040 



000041 



002000 000006 
000040 



1$: 
2$: 

3$: 
64$: 

65$: 



MOV 

BIT 

BE 0 

MOV 

INCB 

BNE 

TST 

BPL 

BIS 

BIS8 

TSTB 

BPL 

MOV 

CLR 

BIC8 

TSTB 

BMI 

BIS8 

TSTB 

BPL 

CLR 

BIC8 

TSTB 

BMI 

RTS 



; THIS 
.AND 

MCV 

BIT 

BEQ 

MOV 

INCB 

BNE 

TST 

BPL 

BIS 

BIS8 

TSTB 

BPL 

MOV 

CLR 

BICB 

TSTB 

BMI 

BIS8 

TSTB 

BPL 

MOV 

BICB 

TSTB 

BMI 

RTS 



#BIT14.(R1) 


MASTER CLEAR 


#BIT15.STAT1 


CRAM? 


-♦6 


BR IF NO 


#BIT15.(R1> 


IF CRAM SET RUN 


#0 


DELAY 


.-4 


BR IF NOT DONE DELAY 


(R1) 


IS RUN SET? 


1$ 


BR IF NO 


#BIT11.(R1) 


•SET LU LOOP 


#43. (R1) 


BASEMC REQUEST 


(R1) 


RDY I SET? 


2$ 


•BR IF NO 


#BASEMC.4(R1) 


•LOAD BASEMC ADDRESS 


6(R1) 


CLEAA CC 


#40. (R1) 


•CLEAR ROI 


(R1) 


;RDY I CLEAR? 


3$ 


•BR IF NO 


#41. (R1) 
(R1) 


•ASK FOR CNTL I 


;UAIT FOR RDI 


64$ 


•BR IF NOT SETY 


6(R1) 


•SET FULL DUPLEX 


#40. (R1) 


; CLEAR RQI 


(R1) 


;RDI UP? 


65$ 


;BR IF YES 


PC 


r RE TURN 



SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS 
PUTS KMC INTO HALF -DUPLEX MODE 



#BIT14.(R1) 


.•MASTER CLEAR 


#BIT15.STAT1 


,-CRAM? 


.+6 


;BR IF NO 


#BIT15,(R1) 


;1F CRAM SET RUN 


#0 


; DELAY 


.-4 


,-BR IF NOT DONE DELAY 


(R1) 


;IS RUN SET? 


1$ 


;BR IF NO 


#BIT11.(R1) 
#43. (R1) 


.•SET LU LOOP 


r BASEMC REQUEST 


(R1) 


•RDY I SET? 


2$ 


•BR IF NO 


#BASEMC.4(R1) 


;LOAD BASEMC ADDRESS 


6(R1) 


CLEAR CC 


#40. (R1) 


CLEAR RQI 


(R1) 


RDY I CLEAR? 


3$ 


BR IF NO 


#41. (R1) 


ASK FOR CNTL I 


(RD 


WAIT FOR RDI 


64$ 


BR IF NOT SETY 


#BIT10.6(RD 


•SET HALF DUPLEX 


#40. (R1) 


CLEAR RQI 


(R1) 


•RDI UP? 


65$ 


BR IF YES 


PC 
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SUBROUTINES 






3210 


















3211 


022246 








RE SUM: 








3212 












; THIS 


SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS 


3213 












;WITH 


RESUME BIT SET AND 


PUTS KMC INTO FIJI 1 — Dl (PI FX MODF 


321 A 


















3215 


022246 


012711 


040000 

V"» WW 






MOV 


#BIT14 (R1) 


MASTER CLEAR 


3216 










; 


BIT 


#BIT15 STAT1 


CRAM? 


3217 










* 


BEQ 


.♦6 


BR IF NO 


3218 


022252 


012711 


100000 

1 www 






MOV 


#BIT15 (R1) 


IF CRAM SET RUN 


3219 


022256 


105227 


000000 

www 






INC8 


#0 


DELAY 


3220 


022262 


001375 








BNE 


.-4 


BR IF NOT DONE DELAY 

<aX * A * » »W I V W »w lyL L l 


3221 


022264 


005711 






1$: 


TST 


(R1) 


IS RUN SET 7 


3222 


022266 


100376 








BPL 


1$ 


BR IF NO 


3223 


022270 


052711 


004000 






BIS 


#8IT11,(R1) 


SET LU LOOP 


3224 


022274 


152711 


000043 

v w w~ 






BISB 


#43, (R1) 


BASEA'C REQUEST 


3225 


022300 


105711 






2$: 


TSTB 


(R1) 


RDY I SET? 


3226 


022302 


100376 








BPL 


2$ 


BR IF NO 


3227 


022304 


012761 


021430 


000004 




MOV 


#BASEMC,4(R1) 


•LOAD BASEMC ADDRESS 


3228 


022312 


012761 


01 0000 

V • WW 


000006 




MOV 


#BIT12.6(R1) 


■SET RESUME BIT 

wW. ■ ■ » W w WW (w W? A t 


3229 


022320 


142711 


000040 

w w~ 






8KB 


#40. (RD 


CLEAR RQI 

WWW'** 4 


3230 


022324 


105711 






3S: 


TSTB 


(R1) 


RDY I CLEAR? 


3231 


022326 


100776 








BMI 


3$ 


•BR IF NO 


3232 


022330 


152711 


000041 






BISB 


#41. (R1) 


ASK FOR CNTL I 


3233 


022354 


10571 1 






64$: 


TSTB 


(R1) 


;WAIT FOR RDI 


3234 


022336 


100376 








BPL 


64$ 


;BR IF NOT SETY 


3235 


022340 


005061 


000006 






CLR 


6(R1) 


•SET FULL DUPLEX 


3236 


022344 


14271 1 


000040 






BICB 


#40, (R1) 


: CLEAR RQI 


3237 


022350 


105711 






65$: 


TSTB 


(R1) 


rRDI UP? 


3238 


022352 


100776 








BMI 


65$ 


•BR IF YES 


3239 


022354 


000207 








RTS 


PC 


; RE TURN 


32 AO 


















3241 


022356 








RFRELD: 








3242 












; THIS 


SUBROUTINE LOADS THE KMC WITH A RECEIVE BA/CC 


3243 


















3244 


022356 


152711 


000044 






BISB 


#44. (R1) 


■REC BA/CC REQUEST 


3245 


022362 


105711 






1$: 


TSTB 


(R1) 


;RDY I SET? 


3246 


022364 


100376 








BPL 


1$ 


;BR IF NO 


3247 


022366 


012561 


000004 

WW*/™* 






MOV 


(R5)*.4(R1) 


;L0AD REC BA 


3248 


022372 


012561 


000006 






MOV 


(P5)+.6(R1) 


•LOAD REC CC 


3249 


022376 


142711 


000040 






BICB 


#40. (R1) 


CLEAR RQI 


3250 


022402 


10571 1 






2$: 


TSTB 


(R1 ) 


IS RDY I CLEAR 


3251 


022404 


100776 








BMI 


2$ 


;BR IF NO 


3252 


022406 


000205 








DTC 


R5 


•RETURN 


3253 


















3254 


022410 








XFRELD: 








3255 
3256 












.-THIS 


SUBROUTINE LOADS THE KMC WITH A TRANSMIT BA/CC 


3257 


022410 


152711 


000040 






BISB 


#40, (R1) 


•XMIT BA/CC REQUEST 


3258 


022414 


105711 






1$: 


TSTB 


(R1) 


RDY I SET? 


3259 


022416 


100376 








BPL 


1$ 


BR IF NO 


3260 


022420 


012561 


000004 






MOV 


(R5)*,4(R1) 


LOAD XMIT BA 


3261 


022424 


012561 


000006 






MOV 


(R5)*,6(R1) 


LOAD XMIT CC 


3262 


022430 


142711 


000040 






BICB 


#40, (R1) 


CLEAR RQI 


JCDJ 




10 , 571 1 






2$: 


TSTB 


(R1) 


IS RDY I CLEAR 


3264 


022436 


100776 








BMI 


2$ 


BR IF NO 


3265 


022440 


000205 








RTS 


R5 


RETURN 
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SUBROUTINES 








3266 


















3267 
3268 


022442 








SHUTDOWN: 






3269 










, \ nj j 


SUBROUTINE FORCES THl KMC TO UPDATE THE BASEMC TABLE 


3270 
3271 


022442 


042761 


000207 


000002 




RI f 


#207.2(R1) 


CLEAR ANV OUTPUT DONES 


3272 


022450 


152711 


000046 






D I CD 

Dl JO 


#46, (R1) 


ASK FOR ILLEGAc REQUEST 


3273 


022454 


105711 






1 $ • 


1 J IU 


(RI) 


RDI SET? 


3274 


022456 


100376 








RPI 


1$ 


BR IF NO 


3275 


022460 


142711 


000040 








#40. (R1) 


CLEAR RQI 


3276 


022464 


105761 


000002 






TSTR 


2(RD 


OUTPUT DONE SET? 


3277 


022470 


100375 








RPI 


2$ 


BR IF NOT 


3278 


022472 


000207 








RTS 


PC 


RETURN 


3279 


022474 


012711 


040000 




1 DftVRF - 


MOV 


#8IT14.(R1) 


MASTER CLEAR KMC-11. 


3280 


022500 


042711 


140000 






Rir 


#BIT15.'BIT14.(R1) ;AND SHUT IT DOWN. 


3281 


022504 


005000 








CLR 


RO 


CLEAR UPC POINTER. 


3282 


022506 


004737 


022614 






JSR 


PC. SETMAP 


SET MICRO-CODE POINTER IN R2. 


3283 


022512 


0050^1 




3$- 


CLR 


(R1) 


START WITH THE CLEAN WORLD. 


3284 


022514 


010061 


000004 






MOV 


R0.4(R1) 


LOAD CRAM ADDRESS. 


3285 


022520 


012261 


000006 






MOV 


(r2)*.6(R1) 


LOAD INSTRUCTION WORD. 


3286 


022524 


012711 


002000 






MOV 


#8IT10.(R1) 


SET ROM 0. 


3287 


022530 


012711 


022000 






MOV 


#8IT13!BIT10.(R1) .'WRITE IT... 


3288 


022534 


005200 








INC 


RO 


UPDATE UPC POINTER. 


3289 


022536 


022700 


002000 






CMP 


#2000. RO 


OVER FLOW? 


3290 


022542 


003363 








BGT 


3S 


;BR IF NO. 


3291 


022544 


004737 


022614 




VERF V: 


JSR 


PC. SETMAP 


;SET MICRO-CODE POINTER IN R2. 


3292 


022550 


005000 








CLR 


RO 


;SET UPC POINTER. 


3293 


022552 


005011 






6$: 


CLR 


(R1) 


;START WITH THE CLEAN WORLD. 


3294 


022554 


010061 


000004 






MOV 


R0.4(R1) 


;L0AD CRAM ADDRESS. 


3295 


022560 


012711 


002000 






MOV 


#BIT10.(R1) 


,SET ROM 0. 


7JCU 




n?*,i 55 


UV/UUV/O 






CMP 


6<R1WR?)* 


;CHECK IF RIGHT? 


3297 


022570 


001402 








BEQ 


<?* 


;BR IF GOOD. 


3298 


022572 


104401 


011054 






type 


.MLDER 


; LOADING ERROR. 


3299 


022576 


005200 






9$: 


INC 


RO 


;BUMP UPC POINTER. 


3300 


022600 


022700 


002000 






CMP 


#2000, RO 


;IS IT DONE? 


3301 


022604 


003362 








BGT 


6$ 


;8R IF NO. 


3302 


022606 


012711 


040000 






MOV 


#BITK,(R1) 


; MASTER CLEAR KMC-11. 


3303 


022612 


000207 








RTS 


PC 


; RE TURN . 


3304 
3305 


022614 


012702 


023650 




SETMAP: 


MOV 


#L0MAP.R2 


;L0AD ADDRESS OF LOW SPEED. 


3306 


022620 


032737 


000002 


002054 




BIT 


#BIT1.STAT3 


;IS IT HIGH SPEED? 


3307 


022626 


001402 








BEQ 


3* 


;8R IF NO. 


3308 


022630 


012702 


027654 






MOV 


#HIMAP.R2 


;LOAD HIGH SPEED ADDRESS. 


3309 


022634 


000207 






3$: 


RTS 


PC 


; RE TURN TO CALLER. 


3310 


















3311 


023650 








L0MAP: 




;L0U SPEED (REMOTE) MICRO-CODE. 


331? 
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3313 027654 . 27654 

3314 

5315 027654 HIMAP: .HIGH SPEED (LOCAL) MICRO-CODE . 

3316 
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3317 



033654 
033677 
033725 
033747 
033774 
034020 
034044 
034067 

034135 
034167 
034210 
034231 
034263 



052200 
200 
200 
200 
051200 
043200 
041600 
200 

200 
200 
020200 
200 
200 



040522 
051124 
042522 
042522 
041505 
042522 
047117 
047111 

054105 
054105 
042523 
040502 
046513 



SUBROUTINES 



051516 EM2: .ASCII 

047101 EM3: .ASCJZ 

042503 EM4: .ASCJZ 

042503 E«5: .ASCJZ 

044505 EM11: .ASCJZ 

020105 EM12: -ASCJZ 

051124 EM13: .ASCJZ 

042524 EM14: .ASCJZ 

042520 DH1: .ASCJZ 

042520 DH2: .ASCJZ 

032114 DH3: .ASCJZ 

042523 DH4: .ASCJZ 

030503 DH5: .ASCJZ 
.EVEN 



B 7 



<200>/ TRANSMIT BA ERROR/ 
<200>/ TRANSMIT COUNT ERROR/ 
<200>/RECEIVE BA ERROR/ 
<200>/RECEIVE COUNT ERROR/ 
<200>/RECEIVE DATA ERROR/ 
<200>/FREE RUNNING ERROR/ 
<200>/C0NTR0L OUT ERROR/ 

<200>/INTERNAL DDCMP ERROR COUNTS NON ZERO/ 

<200>/EXPECTED FOUND ADDRESS/ 
<200>/EXPECTED FOUND/ 
<200>/ SEL4 SEL6/ 
<200>/BASEMC+3 THRU BASEMC+12 / 
<200>/KMC11 IS HUNG/ 



PAGE: 0079U 





UUUUUJ 
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7 

J 




U JH jUh 


uuo 






RVTF 
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nm paa 

UU I COD 
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UUH 




RVTF 
.or i c 
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«nCU4 
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UUc 




RVTF 
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UjtJ I o 


nm pap 

Uv I C.OC 






*ftc UU 




UUUUUj 




r>TP • 


7 

J 






uuo 


UU** 




RVTF 
• o r i c 


0,«« 


n7£7P/. 


UU Ic't 








07A7PA 


UUO 


UUw 




RVTF 
.or i c 


O ,»t 


n7£77fl 


nm ?7p 
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n7£77P 


nr>£ 

UU*t 


nnp 

UUc 




RVTF 
.OTIC 


L P 


("17/77/. 


nm pa a 

UU I cOO 






toFr:P 

WtCUt 


r>7£77A 


UUUUUj 




f»T7 • 
Ul J* 


7 




034340 


006 


004 




BYTE 


6 4 


034342 


001274 






SREG5 




034344 


006 


004 




.BYTE 


6,4 


034346 


001272 






SREG4 


034350 


004 


002 




.BYTE 


4,2 


034352 


001302 






$TMP2 




034354 


000002 




DT4: 


2 




034356 


003 


007 




.BYTE 


3,7 


034360 


001274 






$REG5 


034362 


003 


002 




.BYTE 


3,2 


034364 


001272 






$REG4 


034366 


000002 




DT5: 


2 




034370 


006 


004 




.BYTE 


6,4 


034372 


001274 






SREG5 


034374 


006 


002 




.BYTE 


6,2 


034376 


001272 






SREG4 


034400 


000003 




DT6: 


3 




034402 


003 


010 




• BYTE 


3.10 


034404 


001274 






SREG5 


D34406 


003 


004 




.BYTE 


3,4 


034410 


001272 






$REG4 


C34412 


004 


002 




.BYTE 


4,2 


034414 


021304 






FLAG 


034416 


000003 




DT7: 


3 
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034420 
034422 
034424 
034426 
034430 
034432 
034434 
034436 
034440 
034442 
034444 
034446 
034450 
034452 
034454 
034456 
034460 
034462 
034464 
034466 
034470 
034472 
034474 
034476 
034500 
034502 
034504 
034506 
034510 
034512 
034514 
034516 
034520 
034522 
034524 
034526 
034530 
034532 
034534 
034536 

034540 



C 7 



SUBROUTINES 



PAGE: 0080C2 



003 


010 




.BYTE 


3,10 


001274 






SREG5 


3,4 


003 


004 




• BYTE 


001272 






SREG4 


4.2 


004 


002 




• BYTE 


001266 




SREG2 




000003 




DT10: 


3 


3,7 


003 


007 




.BYTE 


001274 






SREG5 




003 


004 




.BYTE 


3,4 


001272 






SREG4 




006 


002 




• BYTE 


6,2 


001302 




STMP2 




000002 




DT11 : 






006 


004 




.BYTE 


6,4 


001302 






STW2 




006 


002 




.BYTE 


6,2 


001304 






STMP3 




000010 




DT12: 


10 




003 


002 




.BYTE 


3.2 


001300 






$TMP1 




003 


002 




•BYTE 


3,2 


021434 






BASE/104 


003 


002 




.BYTE 


3,2 


001 302 






STMP2 




003 


002 




•BYTE 


3,2 


021436 






BASEMC+6 


003 


002 




.BYTE 


3.2 


001 304 






STMP3 




003 


002 




.BYTE 


3.2 


021440 






BASEMC+10 


003 


002 




.BYTE 


3.2 


001306 






$TMP4 




003 


002 




•BYTE 


3.2 


021442 






BASEMC+12 


000002 




0T13: 


2 




006 


004 




.BYTE 


6.4 


001274 






$REG5 




006 


002 




.BYTE 


6,2 


001272 






SREG4 








CORMAX: 






000001 




.END 
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ABASE = 


000000 


AUSTRT 


ACDU1 - 


000000 


AUSWR = 


ACDWZ = 


000000 


AUT0.S 


ACPUOP= 


000000 


AVECT1= 


ADD WO = 


AAAAAA 

000000 


AVECT2= 


ADDW1 = 


000000 


BASE 


ADDWl 0= 


oooooo 


BASELD 


ADDWl 1 = 


oooooo 


BASELH 


AP\f\l f 1 

ADDWl 


oooooo 


BASEMC 


ADDWl 5- 


oooooo 


BINWRD 


ADDWl 4= 


AAAAAA 

oooooo 


BITO = 


a f\r\i C — 

ADDW 1 j - 


oooooo 


BITOO = 


Af\r\i — 

ADDW^ = 


oooooo 


BIT01 = 


ADDW 5 


oooooo 


BIT02 = 


ADDW4 = 


OOOOOO 


BIT03 = 


nrvrv iC — 

ADDW J = 


oooooo 


BIT04 = 


ADDWo - 


oooooo 


BIT05 = 


Af\f\Ll7 — 

ADDWr - 


OOOOOO 


BIT06 = 


ADDWO - 


(WWW 

oooooo 


BIT07 r 


Af\f\l |Q mm 

ADDWV - 


OOOOOO 


BIT08 = 


ADb VI 1 - 




BIT09 = 


ADtwn - 


OOOOOO 


BIT1 = 


AftDTilT 


OOoUjj 


BIT10 = 


AD VAN 1 - 


1 /V / in 
1U«»*»*:0 


BIT11 = 


AtNV - 


OOOOOO 


BIT12 = 


AtNVH — 




BIT13 = 


ACATAI — 

Ar A 1 AL — 


wuuuu 


BIT14 = 


AnAUK 1 - 


IVVVWI 


BIT15 = 


AMAf\DO— 

ATlADKt- 


uuuuuu 


BJT2 = 


APlADKi- 


LaJUUUU 


BIT3 = 


AMAr\D/ — 

WtADKh- 


fVWWl 

oooooo 


BIT4 = 


AMAMC 1 — 


/wwin 


BIT5 = 


AMAMC 0— 


ft/VWlfl 
UvaAHJU 


BIT6 = 




oooooo 


BIT7 = 




oooooo 


BITS - 


ATlbCiAD- 


oooooo 


BIT9 


Anb(jLCi= 


/WVWl 

oooooo 


BM 


AMCrTV- 

ATlbOT Y- 


OOvAHJO 


BPTVEC= 


AMT VD 1 — 

API 1 irl- 


OOOOOO 


BRLVL 


AMTVDO- 

An 1 lrc~ 


oooooo 


BRW 


An 1 Trj- 


fwwin 


CHRCNT 


AMT VD/ — 

AH 1 Tr*»— 


uuuuuu 


CKSWR 


AOACC — 


fWWIA 

oooooo 


CKSWR1 


ADD T /"ID — 

ArKIlX- 




CKSWR2 


nr 1 L OU — 




CKSWR3 


APTENV= 


000001 


CKSWR4 


APTSIZ= 


000200 


CKSWR5 


APTSPO= 


000100 


CLKX 


APT. SI 


013540 


CLRTAB 


ASYREG= 


oooooo 


CNERR 


ATESTN= 


oooooo 


CNT.MA 


AUDONc 


003354 


CNVRT = 


AUNIT = 


oooooo 


C0NERR 



SYMBOL TABLE 



003126 


CONN 


010665 


oooooo 


CON TAB 


003330 


012124 


C0NVRT= 


104416 


oooooo 


CORMAX 


034540 


oooooo 


CR 


000015 


013756 


CREAM 


001 502 


022030 


CRLF = 


000200 


022136 


CSR 


010357 


021430 


CSRMAP 


012126 


006406 


CYCLE 


01147* 


000001 


DATABP 


006760 


000001 


DATACL= 


104413 


000002 


DATAHD 


006746 


000004 


DDISP = 


177570 


000010 


DELAY = 


104411 


000020 


DEVTAB 


003342 


000040 


DH1 


034135 


000100 


DH2 


034167 


000200 


DH3 


034210 


000400 


DH4 


034231 


001000 


DH5 


034263 


000002 


DJSPLA 


001242 


002000 


DJSPRE 


000174 


004000 


DSWR = 


177570 


010000 


DT1 


034302 


020000 


DT10 


034434 


040000 


DT11 


034452 


100000 


DT12 


034464 


000004 


DT13 


034526 


000010 


DT2 


034320 


000020 


DT3 


034336 


000040 


DT4 


034354 


000100 


DT5 


034366 


000200 


DT6 


034400 


000400 


DT7 


034416 


001000 


DZDMH = 


oooooo 


010625 


EMTVEC= 


000030 


000014 


EM11 


033774 


013472 


EM12 


034020 


004354 


EM13 


034044 


006404 


EM14 


034067 


011226 


EM2 


033654 


011302 


EM3 


033677 


011314 


EM4 


033725 


011320 


EM5 


033747 


011324 


ENDEX 


017062 


011430 


ENDEX1 


017076 


001452 


ENDEX2 


017100 


016566 


ERCTOO 


002304 


01 1 023 


ERCT01 


002310 


002302 


ERCT02 


002314 


104417 


ERCT03 


002320 


010756 


ERCT04 


002324 



ERCT05 002330 

ERCT06 002334 

ERCT07 002340 

ERCT10 002344 

ERCT11 002350 

ERCT12 002354 

ERCT13 002360 

ERCT14 002364 

ERCT15 002370 

ERCT16 002374 

ERCT17 002400 

ERR 003244 

ERRMSG 006734 

ERRPC 003322 

ERRVEC= 000004 

ERTA80 007106 

EXIT = 000205 

EXJTER 007042 

FLAG 021304 

FLOAT 003156 

FY 003202 

HALTS 006764 

HILIM 006046 

HIMAP 027654 

HT = 000011 

IISR 017132 

INCHAR 011434 

INJFLG 001506 

INLP1 005762 

INPUT - 104415 

INTTY 013506 

I0TVEC= 000020 

KMACTV 001470 

KMCM 011044 

KMCR00 002100 

KMCR01 002110 

KMCR02 002120 

KMCR03 002130 

KMCR04 002140 

KMCR05 002150 

KMCR06 002160 

KMCR07 002170 

KMCR10 002200 

KMCR11 002210 

KMCR12 002220 

KMCR13 002230 

KMCR14 002240 

KMCR15 002250 

KMCR16 002260 

KMCR17 002270 

KMCSR 002066 

KMCSRH 002070 

KMCTL 002072 



KMNUM 00K 72 

KMP04 002074 

KMP06 002076 

KMRLVL 002060 

KMRVEC 002056 

KMS100 002102 

KMS101 002112 

KMS102 002122 

KMS103 002132 

KMS104 002142 

KMS105 002152 

KMS106 0021 o2 

KMS107 002172 

KMS110 002202 

KMS111 002212 

KMS112 002222 

KMS113 002232 

KMS114 002242 

KMS115 002252 

KMS116 002262 

KMS117 002272 

KMS200 002104 

KMS201 002114 

KMS202 002124 

WS203 002134 

KJ1S204 002144 

KHS205 002154 

^sMS206 002164 

XMS207 002174 

KMS210 002204 

KMS2H 002214 

KMS212 002224 

KMS213 002234 

KMS214 002244 

KMS215 002254 

KMS216 002264 

KMS217 002274 

KMS300 002106 

KMS301 002116 

KMS302 002126 

KMS303 002136 

KMS304 002146 

KMS305 002156 

KMS306 002166 

KMS307 002176 

KMS310 002206 

KMS311 002216 

KMS312 002226 

KMS313 002236 

KMS314 002246 

KMS315 002256 

KMS316 002266 

KMS317 002276 
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SYMBOL 


TABLE 












KMTLVL 


002064 


PACT13 


002356 


RFRELD 


022356 


SW8 = 


000400 


X3 


000103 


KMTVEC 


002062 


PACT 14 


002362 


R0MCLK= 


104412 


SW9 = 


001000 


X4 


000104 


KM. END 


002300 


PACT15 


002366 


RUN 


001500 


TBITVE= 


000014 


X5 


000105 


KM. MAP 


002100 


PACT16 


002372 


R6 =%000006 


T8UF 


021314 


X6 


000106 


LDRVRF 


022474 


PACT17 


002376 


R7 =1000007 


TBOFF 


020110 


X7 = 


000107 


LF 


000012 


PARS I T= 


040000 


SAVACT 


001474 


TC0UNT 


021312 


ZERO 


001462 


LINE 


010567 


PERFOR= 


004537 


SAVNUM 


001476 


TEMP 


011122 


SAPTHD 


002034 


LOBITS 


006052 


PFTAB 


007320 


SAVPC 


001460 


TFLAG 


021306 


SATYC 


004716 


LOCK 


001444 


PIRQ = 


"\77772 


SAVSP 


001456 


TIMER = 


104414 


$ATY1 


004672 


LOKFLG 


001510 


PIRQVE= 


000240 


SAV05 = 


104406 


TKVEC = 


000060 


SATY3 


004700 


LOLIM 


006044 


POPRO = 


012600 


SCAN 


016716 


TLAST = 


016370 


$ATYA 


004710 


LOMAP 


023650 


P0P1 SP= 


005726 


SCAN1 


017102 


TPVEC = 


000064 


$AUT0B 


001234 


MASKX 


001454 


P0P2SP= 


022626 


SCAN2 


016730 


TRAPVE= 


000034 


S8ASE 


001372 


MASTEK 


010011 


PRIO 


010416 


SC0P1 = 


104405 


TRTVEC= 


000014 


S8DADR 


001222 


MCSRX 


007741 


PRIRTY 


013760 


SETMAP 


022614 


TST1 


013762 


S8DDAT 


001226 


MDATA 


011164 


PRO = 


000000 


SHUTD0 


022442 


TST10 


016056 


SCDW1 


001376 


MEMLIM 


001466 


PR1 = 


fx fx fx fX J fx 

000040 


S0FTSW 


011466 


TST11 


016156 


SCDW2 


001400 


MEPASS 


007614 


PR 2 = 


000100 


SPACNT= 


006405 


TST12 


016370 


$CHARC 


004666 


MERRPC 


010066 


PR3 = 


fX fX fX M J fX 

000140 


STACK = 


001200 


TST2 


01 5006 


SCMTAG 


001200 


MERRX 


007766 


PR4 = 


000200 


STAT 


001450 


TST3 


015200 


$CM1 = 


000006 


MERR2 


007641 


PR 5 - 


fX fX SX "X M ^X 

000240 


STAT1 


002050 


TST4 


015336 


$CM2 = 


000014 


MERR3 


007666 


PR6 = 


fX fX fX fX fX 

000300 


STAT2 


002052 


TST5 


015464 


$CM3 = 


000006 


MILK 


001 504 


PR 7 = 


fxrxfx^r 1 fx 

000340 


STAT3 


002054 


TST6 


015622 


$CM4 = 


000005 


MLDER 


011054 


PS 


1 77776 


STKLMT= 


177774 


TST7 


015740 


f CNTLG 


005530 


MLOCK 


007712 


PSW = 


177776 


STRTSW 


001446 


TTST 


004146 


SCNTLU 


005523 


MNEW 


010013 


PUSHRO= 


010046 


SV05 


006074 


TW0SYN= 


010000 


SCPUOP 


001344 


MODU 


010455 


PUSH1 S= 


005746 


SWFLG 


011432 


TYPDAT 


006750 


SCRAP = 


'\77777 


MPASSX 


007755 


PUSH2S= 


024646 


SUR 


001240 


TYPE = 


104401 


SCRLF 


001313 


MPFA1L 


007556 


PWRVEC= 


000024 


SWREG 


000176 


TYPMSG 


006650 


SDDWO 


001402 


MR 


007636 


QV.FLG 


001511 


SWO = 


000001 


VEC 


010375 


SDDW1 


001404 


MRESET= 


i fx fx. 

004000 


R8UF 


021362 


SW00 = 


000001 


VECMAP 


013222 


SDDW10 


001426 


MSTCLR= 


104410 


R8UFF 


020346 


SW01 = 


000002 


VECTR 


013754 


SDDW1 1 


001430 


MTITLE 


001000 


RBUFFE 


fX *X + fX ^x 

021302 


SW02 = 


000004 


VERFY 


022544 


SDDW12 


001432 


MTSTN 


007777 


R8UFF1 


020346 


SW03 = 


000010 


WHAT 


005764 


SDDW13 


001434 


MVECX 


007747 


R8UFF2 


020452 


SW04 = 


000020 


WHERE 


006050 


SDDW14 


001436 


NEXT 


001442 


RBUFF3 


020556 


SW05 = 


000040 


WHICH 


013214 


SDDW1 5 


001440 


NOACT 


010725 


R8UFF4 


020662 


SW06 = 


000100 


WRDCNT 


006402 


SDDW2 


001406 


NOOEV 


003240 


R8UFF5 


020766 


SU07 = 


000200 


WRXO.F 


006736 


SDDW3 


001410 


NUM 


010317 


R8UFF6 


021072 


SW08 - 


000400 


XBX 


006536 


SDDW4 


001412 


01 SR 


01 7422 


RBUFF7 


021 1 76 


SW09 = 


001000 


XCNTAB 


020240 


SDDW5 


001414 


OK 


003220 


RCNTAB 


020220 


SU1 


000002 


XCSR 


004104 


SDDW6 


001416 


ONE 


001464 


RCOUNT 


021360 


SW10 = 


002000 


XDNTAB 


020312 


SDDW7 


001420 


PACTOO 


OO2302 


RDCHR = 


104402 


SW11 = 


004000 


XERR 


004126 


SDDW8 


001422 


PACT01 


002306 


RDLIN = 


104403 


SU12 = 


010000 


XFRELD 


022410 


SDDW9 


001424 


PACT02 


002312 


RDNTAB 


020256 


SU13 = 


020000 


XHEAD 


010073 


SDEVCT 


001326 


PACT03 


002316 


RDOCT = 


104404 


SW14 = 


040000 


XMI TBA 


020052 


SDEVM 


001374 


PAC lU*» 




nr m a 

RcCBA 


020052 


SW15 = 


100000 


XPASS 


004120 


SDOAGN 


004100 


PACT05 


002326 


RESREG 


006762 


SW2 = 


000004 


XSTATQ 


011074 


SENDAD 


004070 


PACT06 


002332 


RESUM 


022246 


SW3 = 


000010 


XTSTN 


007114 


SENDCT 


004054 


PACT07 


002336 


RESUME 


020050 


SW4 


000020 


XVEC 


004112 


$ENV 


001336 


PACT10 


002342 


RESVEC= 


000010 


SW5 


000040 


XO 


0C0110 


SENVM 


001337 


PACT11 


002346 


RES05 = 


104407 


SW6 - 


000100 


X1 


000101 


SEOP 


003662 


PACT12 


002352 


RFLAG 


021310 


SW7 - 


000200 


X2 


000102 


SEOPCT 


004046 
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SYMBOL 


TABLE 












SERFLG 


001203 


SLPADR 


001 206 


SNWT5T - 


AAAAAA 

000000 


JSVPC - 


AAAA/ A 
000040 


5TYPEC 


AA/ L. OO 

00h6*:<: 


IE WAX 


001215 


SLPERR 


0012i0 


»0VcR 


AA/ 11 A 

004330 


C CI ID — 

5SWK = 


1 ^ / AAA 
16*»000 


C T VDC V 

»1 YPfX 


AA/ iL 7A 

0046 rv 


IERROR 


006506 


SMADR1 


001350 


SPAS 5 


AA1 1*5/ 

001 5ch 


C CI IOC /* 

»5WRtG 


AA1 1/ A 
001340 


JUNI1 


A A 1 1 1 A 

001330 


tERRPC 


001216 


SMADR2 


001354 


•QIC TH 


AAOA/ "5 

00*:04tr 


C CI Ifillb' — 


AAAAAA 
000000 


Cl l&l T TM 

5 UN J m 


AAOA/ / 

00*:044 


ItRRTB 


001512 


SMADR3 


AA1 7i A 

001360 


•PWRDN 


AA71 OO 


C T C C Tfci 


AA1 100 

ooi3t?<r 


Cl ICI ID 

5USWK 


AA1 1/ O 

00 1 34 <: 


SERTTL 


001212 


SMADR4 


001364 


ecu inair* 

SPWKnO 


AA77A/ 

00/306 


• T t Mr c 


AA1 11 A 

001310 


c \tc r T 1 

»VcC 1 


AA1 14.4L 

001366 


»t TABL 


001336 


SMA1L 


001316 


CDi-ID! ID 


AA71 7Z. 
00/ I IH 


• TL-Q 

» I KJa 


AA1 0/ A 

00 I c»»6 


Cv/C r TO 


AA1 17A 
00 13/0 


St TEND 


001442 


SMAMS1 


AA1 1/ L. 

001 346 


C Al IC C 

$UUfc5 


AA1 11 0 
001 31 C 


» I 


Afti oz.Z 

00 CHH 


CvTCTD 
»X 1 S 1 H 


AA/ 1 7/ 

0041 /4 


IF A TAI 


001320 


SMAMS2 


00133*: 


JRDLHK 


AAC 1 /.A 

003 I 40 


C TMDA 

9 \rr\j 


AA1 07A 
UU l£/6 


C V — 


AAAAAA 

000000 


IFFLG 


005136 


SMAMS3 


AA1 1C4L 

001336 




nncv a 
0U3c60 


C TMD1 


AA1 1AA 
00 1 3UU 


cere t L — 
$»ot 1 *»- 


AAAAAA 
OUUwO 


V I LLC 


001256 


SMAMS4 


A AT TAD 

001 36<: 


5KDUI 1 


AACCAA 
003360 




AA1 1AO 
00 1 JVC 




ni/ C./ A 
034340 


IF ILLS 


001255 


SMBADR 


00t:036 


COPIC7 — 


AAAAA7 
00000/ 


C TMDl 


AA1 1AZ. 
00 1 jOh 


•AD VAN 


AAA AC/ 
006034 


SGDADR 


001220 


SMFL6 


003134 


♦KtbAD 


AA1 OAA 

001 c60 


C TMD/ 


AA1 1AA 
00 1 J\)0 


nrrm 

.at oIN 


AA 1Z. A/ 
003464 


tGDDAT 


001224 


smnew 


AAC C/ A 

003346 


CDC ff\ 


AA1 OA 3 

001 <:&<: 


» IN 


AAAA1 1 
0000 1 J 


r KiV/D T 


AAA1 AZ 
006 1 64 


»Gc T4<: 


004060 


SMS GAD 


AA1 110 

00133*: 


CDC f~1 


AA1 OA/ 
001 £&4 




1A1 0C.0 
JO I CJC 


. LUNVK 


AAA1 AA 

0061 60 




000000 


SMSGLG 


AA1 IT/ 

001 334 


CDC O 


AA1 OAA 

001 <:66 


C TDC 1 fl 


AA1 0^7 

00lc3^ 


HA T AC 

. DA 1 AL 


AA7/./ 0 


IH1BT5 


002034 


SMSGTY 


AA1 11 (■ 

001316 


cdc n 


AA1 37A 
0U ! C(\J 


CTDC 


AA1 ocn 
00 I c30 


nc i A v 


AA710A 
00/ JCO 


•HJUC T 


005716 


SMSWR 


AAC C1C 

003333 


CDCr/ 


AA1 373 
00 I C I C 




AAX,/ 1 fi 


mc Tn 


AA71C.A 
Ov/ 336 


ti rwT 


001204 


SMTYP1 






001274 

\J\J Itin 


4TRAP2 




• AC. *JVJ 


00A12A 


SILLUP 


007312 


SMTYP2 


001353 


SRTNAD 


004102 


$TRP = 


000021 


.R0MCL 


007374 


SINPUT 


005720 


SMTYP3 


001357 


$S 


000014 


STRPAD 


006444 


. SAV05 


006066 


SINTAG 


001235 


SMTYP4 


001363 


SSAVR6 


007316 


STSTM 


002040 


•SC0P1 


004360 


SITEMB 


001214 


SMXCNT 


004356 


SSC0PE 


004134 


STSTNM 


001202 


.START 


002402 


SLF 


001314 


$N 


000012 


$SETUP= 


000000 


STTYIN 


005514 


.TIMER 


007506 


tLFLG 


005135 


SNULL 


001254 


SSVLAD 


004316 


STYPE 


004410 


.sx - 


002034 



. ABS. 034540 000 
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